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LantKxODOCTLION 


Modification of linear or non linear dynamic system behaviours via feedback 
control of either the estimated or observed variable or the dynamic state variable is a 
fundamental tool of modern control engineering. Such desired modifications might 
melee [Ref, 17: 

a. Stabilizing otherwise unstable systems, 
b. Decoupling overall system response to plant or controller noise, 
c. Desensitizing system performance as a function of plant variations (robustness) or, 


d. Invoking a desired transient response characteristic and modal signature. 


For linear time invariant single input single output (S7SO) systems, calculation of 
the required feedback to perform one of these desired svstem behaviours is relatively 
straight forward and well documented [Refs. 2.3]. The S/SO static feedback problem Is 
additionally characterized by a specific design specification. The classic pole placement 
problem for example results in solving a full rank linear system of equations for the 
unknown feedback gains. These feedback gains will then invoke a set of closed loop 
poles which in turn give rise to specific transient behaviours. Further modification of 
the modal behaviour of the svstem can only be accomplished through a different set of 
feedback gains. This limited degree of freedom of the feedback design space of the 
classical SJSO dynamic problem can additionally be interpreted as a bound on what 
performance specifications one can designate. Specification of additional system 
modification such as modal decoupling for example 1s not possible. 

Design of acceptable feedback compensations for linear time invariant mult 
input multi output (A/ZA/O) systemis are primarily treated bv state space solution 
techniques of modern control. As modern control theory can also treat non-linear and 
time varying dynamic systems, this time domain approach has proved successful both 
computationally and analytically. The linear quadratic gaussian (LQG) probiem is a 
prime example of a successful ttme domain solution approach [Refs. 4,5,6]. Frequency 
response methods, along with such cigenvalue design approaches as characteristic loci 
and dyadic expansions and non - eigenvalue methods as the inverse Nyquist array 


technique have also been noted in the literature [Ref. 7]. More importantly, the 


Ul 


underlving theme in all these design methodologies is that the resulting set of feedback 
gains, F, which satisfy a singular design criteria such as eigenvalue placement. 
maximizing a multivariable robustness measure [Ref. 8] or minimizing a particular 
quadratic cost function [Ref. 9] for example, is not unique. This non uniqueness of 
solution ideally allows the multivariable controller design problem to be formulated for 
solution by numerical optimization techniques. 

Exploiting the specification of the eigenvectors of a M/Z\/O closed loop system 
via numerical optinuzation techniques is the prime motivation of this research. Results 
include the following. 


a. An interactive algorithm for eigenstructure synthesis and analysis of MI[MO 
svstenis. 


b. An analysis of both left and nght eigenspaces as geometric interpretations of 
algebraic restrictions on closéd loop eigenvector specification published 
previously, and 


c. A new application of elgenstructure assignment to reconfiguring digital flight 
controllers for a class of damaged flight control systems. 


Subsequent to a discussion of previous reported research in eigenstructure 
assignment, a new matrix treatment of eigenstructure theory is presented. This 1s 
followed by a description of the numerical optimization techniques used for designing 
particular multivariable controllers. Applications of these numerical techniques to 
design of various robust decoupling controllers are then shown. The latter part will 
present the theoretical framework of a new application of eigenstructure assignment to 
the synthesis of reconfigured digital flight controllers. The thesis will then conclude 


with reconfigured solutions for specific classes of damage to the F-18 tactical aircraft. 


It, BACKGROUND 


The following state variable equations define the linear time invariant system 
used throughout this thesis for the continuous time domain. The state. cutput. and 


controlsequations are. 


Sao aU Ge fear 21) 
; — Ce Du (eqiiez-2} 
u = Fy + G.6 (eqn 2.3) 


where each vector is defined as elements of the following vector spaces, 


xe RF. (eqne? 4) 
ve R! (eqn 2.5) 
ue A™ : (eqn 2.6) 
6e RS (eqn -.7)} 


The individual system matrices are defined as follows, 


A = nxn plant matrix 

B = nx mcontrol matrix 

G, = nxc feed forward command state matrix 
C = /xXn output matrix 


D = /xm feed forward output matrix 


F = mx / feedback gain matrix 
G, = mxc feed forward command input matrix 


The flexibility afforded by eigenstructure assignment to design of linear time 
invariant AJIA/O state feedback controllers has been well documented since the mid 
1970's. Moore [Ref. 10] defined this Nexibility of design bevond specification cf closed 
loop eigenvalues in terms of allowable sets of closed loop eigenvectors for systems with 
distinct eigenvalues. In addition. he demonstrated that for those eigenvalues which 
were invariant under state feedback (uncontrollable), design freedom of eigenvector 
specification still existed without rigorous constraints. During the same research 
period, Srinathkumar [Ref. 11] showed that for controllable systems with a states and in 
inputs, n closed loop eigenvalues and ‘in x vn’ elements of the corresponding eigenvector 
matrix mav be arbitrarily specified. A kev additional constraint 1s that no more then 
’m’ elements of each individual eigenvector may be specified simultaneously. Klein and 
Moore {Ref. 12] extended the results of \foore {Ref. 10] to include systems with a given 
set of non-distinct eigenvalues. The algorithm presented bv these researchers enables a 
designer to invoke an allowable closed loop Jordan eigenstructure via state feedback. 

For AMZIAIO svstems emploving output feedback. Srinathkumar [Ref. 15] presented 
an eigenstructure design theorem that has become a foundation for many researchers 


engaged in analysis of such AJIMO systems. Restated here, 


for systems with ‘rm’ inputs and’! ontputs, max (anJ) closed loop etgenvalnes 
can be specified and max (ind) eigenvectors or reciprocal vectors by duahty 


ean be partially assigned with min (mJ) elements of each eigenvector specified. 


As the analytical treatment of eigenstructure assignment became familiar, 
subsequent workers began to explore applications to some existing design problems. 
Two examples are noted. Sebakhy and Abdel - Moneium [Ref. 14] presented an 
algorithm for computing state feedback gains which invoked niinimum time responses 
(deadbeat controllers) for multivariable linear discrete time svstems which 
simultaneously allowed the designer flexibility in selecting the closed loop eigenvectors. 
Klein [Ref. 15] provided guidelines for constructing state feedback decoupling 
controllers which are robust to small perturbations by means of an eigenvector 
approach. Noteworthy in this work is the use of geometrical interpretations [Ref. 16] 


to analysis of the allowable closed loop design space as functions of open loop 
parameters. 
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“Andry, Shapiro and Chung ([Ref. 17] extended the analytical work in 
eigenstructure assignment by investigating the constrained output feedback case. By 
assigning fixed zeroes to specified feedback gain elements, they noted that engineering 

exibility is gained by the designer in terms of being able to conipute a specirum of 
satisfactory controllers. This enables one to compare the entire range of controllers 
(full stare feedback through constrained output feedback) with respect to performance. 
cost, and reliability. 

Magni and Herail [Ref. 18] presented methods which invoke disturbance 
decoupling via output feedback. These researchers used the design freedom of 
eigenvector specification to mininuze the norm of the transfer matrix between the 
particular disturbance and the controlled state variables. This in effect attenuated the 
particular disturbance in the resulting system response. They applied these results to 
an aircraft gust alleviation (1 - cosine) problem with some success. 

Eastman and Bossi [Ref. 19] generalized the linear quadratic gaussian eigenvalue 
placement technique of Solheim [Ref. 20] to include specification of the allowable 
closed loop eigenvectors. An iterative algorithm. eigenvector specification was 
accomplished by manipulating the geometric structure of the Ricatti matrix at each 
iterative stage. 

Numerical methods for computing robust state feedback gains as explicit 
functions of the closed loop eigenstructure were presented by Kautskv, Nichols. and 
Van Dooren [Ref. 21]. Noteworthy in this work is the exploitation of an established 
niatrix factorization. the singular value deconiposition (SVD) [Ref. 22]. Through the 
use of SVD these authors arrived at an expression for full state feedback gains as an 
explicit function of the closed loop eigenstructure. In this thesis, an extension of their 
analysis to the output feedback case involving the closed loop left (or dual) 
eigenvectors will be presented. 

Of the several analytical works which focus on eigenstructure assignment for 
linear dynanuic systems, miention should be made of the paper by Sobel and Shapiro 
(Refs. 23,24]. A two part work, Part I [Ref. 23] presents eigenstructure assignment 
theory in a tutorial fashion. Part II [Ref. 24] presents informative applications to flight 
control design via output and constrained output feedback controllers which were to 
meet specified modal structures. 

Several recent authors have continued the research of applying eigenstructure 


assignmient theory to linear state feedback design. Miclke, Carraway, and Marefat 


[Ref. 25] presented an_ interactive design algorithm using the classic results of 
Srinathkumar [Ref. 13] and [Ref. 10] while Liebst and Garrad {Ref. 26] applied the 
work of Andry, et. al. [Ref. 17] to aircraft flutter control and gust alleviation problems. 
White and Spever [Ref. 27] presented innovative results of the application of 
eigenstructure assignment to failure detection filters. a tvpe of observer. 

Recent analytical research in eigenstructure theory has centered on subspace 
characterizations of the allowable sets of closed loop eigenvectors. Fletcher, Kautskvy, 
Kolka. and Nichols [Ref. 28] arrived at explicit expressions of feedback gains as 
functions of right and left eigenstructures. This paper provided the initial motivation 
to examine the increased eigenvector constraints imposed by output feedback in terms 
of the dual constraints on the allowable left eigenvectors. Sogaard-Anderson. 
Trostmann, and Conrad [Ref. 29] characterized the sets of allowable right and left 
eigenvector sets in terms of residual subspaces defined bv the matrix residuals 
associated with the desired closed loop eigenvalues. This work however, did not 
explicitly examine the left eigenvector sets as members of a particular subspace. This 
thesis will examine such a membership. 

In this thesis, research objectives were accomplished in two phases. The initial 
phase concentrated on the coding of an interactive eigenstructure design algorithm 
(EIGENS) for linear dynamic svstems with no restrictions as to state or output 
feedback [Ref. 30]. Applications of the algorithm to design of robust decoupling 
controllers were successfully performed on the CH-47 helicopter. Further application 
to design. of a decoupling output controller for the L-1011 transport was also 
accomplished through execution of the EJGENS algorithm. The latter phase of the 
research entailed developing geometrical interpretations of the restrictions of choosing 
allowable nght and left eigenvectors, innovating a new application of eigenstructure 
assignment to reconfiguring digital flight controllers, and an application of this new 
concept to the F/A-18 tactical aircraft. Let us now turn to developing the necessary 


eigenstructure theory for linear dynamic systems for use throughout the thesis. 
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Il. EIGENSTRUCTURE THEORY FOR LINEAR TIME INVARIANT 
Sal EIS 


A. PRELIMINARIES 
1. The Singular Value Decomposition 
Matrix and vector notation used throughout this thesis is noted in 
APPENDIX A. The matrix singular value decomposition and the matrix pseudo - 
inverse are reviewed below. 
Consider a matrix B, where B €#"™. The singular value decomposition 
(SVD) of B ts defined as [Ref. 22], 


B= ery (eqn o2) 


where L, and v,! are orthogonal matrices of order n and m respectively. The matrix 


=, is a diagonal matrix of the singular values of the matrix B. 
Pr = d100(0 1 .05,240.) (eqn 3.2) 
b Sa eee p 
Where p is min(n.m). 
Additionally, the singular values, 6,, are commonly defined in terms of the 
spectruni of BB! such that, 


6(B) = /2..(BB!) (eqn 3.3) 


In the arguments which arise in this thesis. the following block form of 


equation 3.1 will be used extensively for full rank matrices Where n 2 m. 


(Dp 


where @ denotes a null matrix and an iss@elimed by 


Be ee) I (eqn 3.4) 


ZL, = Baven (eciicans) 
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Since it is assumed that B is of full rank, note that 4} is now a square mxm 
matrix where the null blocks of equation 3.2 "hames beenydisreaanded) lia yeeaesc 
following discussions, %, will be assumed to be square. The linear space dimensions of 


the block matrices are shown below. 


mere (eqn 3.6) 
gn = RQnx(n-m) (eqn 3.7) 
Z, € QAM. | (eqmmeasy 
Oe Qin-m)xm (eqn 3.9) 


Note that for non - singular square miatrices, Ly does not exist and equation 


3.4 reduces to 
B= UL4p a cee (eqn 3.10) 


Useful identities associated with the matrix singular value decomposition are 


noted below. 
Oy 220 Oe ae) (Canes 


where r = rank(B). 


6 (B) = 6,,,(B) (eqn 3.12) 
6 (Bs = Geb) (eqiia. la) 
(Bil, = o,(B) (eqn 3.14) 


18 


For square matrices, where B € #™™, the two norm condition number of the 


matrix B, K,(B). 1s defined as. 
K,(B)= o,(B) G_(B) Gsobous a Gey, 


@. The sfatrix Pseudo Inverse 
The matrix pseudo inverse, often referred to as the generalized inverse. 1s 
defined in the least squares sense in the following way. For the matrix Be B™™, the 
eseudo inverse. B™ . is the unique Frobenius-norm solution to. 


min || BB” -I [ff (eqn 3.16) 


n 


Additionally, B~ satisfies the classic Moore - Penrose conditions. 


BB’ B=B (eqn 3.17) 
B* BB* = B™ (eqn 3.18) 
(BB~)! = B7B (eqn 3.19) 


| 
oe 
ee 


(B7 By! = (eqn 3.20) 


In this thesis. the singular value decomposition will be used to define the 


matrix pseudo inverse in the following way (Ref. 31]. 


B Seales | (eqn 3.21) 
wenmere, 
Bete (eqn 3.22) 
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It can be shown that equation 3.22 satisfies the Moore - Penrose conditions. 
Proof of equality for equation 3.17 is shown below. Substituting the expression from 


equation 3.21 into eqUation a2) 7 aia. 


BBY B= (U.S ihe peace en teeny) (eqn 3.23) 
Since, 
ve aa (eqn 3.24) 
and, 
Ue i 7 (eqn 3.25) 


a 


then equation :23 seduces ce: 


BBY B = Up Si(1 tees ane (eqn 3.26) 
OF, 
BB B= Up anna (eqn 3.27) 
Further, since 
ase! =I. (eqnwae2) 


then one has the final result. 


BBY B = U,,5,V,/ = B (eqn 3.29) 


Pa ae GriINERALIZED FEEDBACK EXPRESSION FOR LINEAR TIME 
EN ARAN T SYSTEMS 


Kautsky, Nichols, and Van Dooren [Ref. 21] published the development of an 
expression for state feedback gains as an explicit function of a desired closed loop 
eigenstructure. The following general derivation follows closely that of Kautsky et.al. 
by expanding their results to include the output feedback case. Generalized in this 
thesis 1s interpreted to include output feedback with the existence of feed forward loops 
in the system. Full state feedback or output feedback without feed forward then 
become specific cases of the final expression. 

Consider the linear '/ZAJO system comprised of m states. m inputs, and l outputs 


with output feedback, 


x = Ax + Bu (eqn 3.30) 
y= Cx + Du (Sark 3-5)) 
w= Ey (eqins-o2) 


The classical eigenvalue placement problem written in vector form arises from 
combining equations 3.30, 3.31, and 3.32 in the following fashion. Combining 
Sdmauons ool and 3.52 yields, 

ie eke ol) (SG Bea) 
and rearranging yields, 


(I - FDju = FCx (eqn 3.34) 


Assuming (I, - FD) is not singular one pre multiplies equation 3.34 by (I, - 
FDY! yielding, 


u = (I. - FD)! ECx (edi 3.39) 


Substituting equation 3.35 into equation 3.30, one has 
= Ax + BI(I_ - FD)! FC}x (eqn 3.36) 


Upon application of an appropriate similarity transformation, equation 3.36 may 
be written in terms of the closed loop system eigenvectors, X;, and eigenvalues, A; 
(Ref. 2], as follows, | 


Mx = Ax + Bil - FD) FE}x (eqn 3.37) 
In matrix form, equation 3.37 becomes, 
XAX! = A + BIL - FD) 1 FC (eqn 3.38) 
Where A is the diagonal matrix of closed loop eigenvalues and it is implicitly assumed 
that the eigenvector matrix, X, is composed of linearly independent columns. 
Subtracting A from both sides of equation 3.38 yields. 


Bila ee. eee (eqn 3.39) 


Now by exploiting the singular value decompositions of B and C where, 


B= Ups, v,) = Um. (eqn 3.40) 
and, 

C= U2 ia (eqn 3.41) 
equation 3.39 becomes, 

Uo Z( 12 = ED) pe ea ee (eqn 3.42) 


Appropriate pre and post matrix multiplication of equation 3.42 vields, 


(eee ti OW! aa lie ol (eqn 3.43) 


Z2 


and an additional pre matrix multiplication of equation 3.43 by by eee 2 results in, 
(ewe Were a x A\Z Uo (eqn 3.44) 
Let us now define the eigenstructure matrix L, as, 
WeSeCNN A) (eqn 3.45) 
Rearranging equation 3.44 with the substitution of equation 3.45 vields. 


ee wee eee = Zo! tz lu.! (eqn 3.46) 


Now define O as, 

OS 7c UA Oe q (eqn 3.47) 
Then equation 3.46 becomies, 

aver DQ) =8© (eqn 3.48) 


and appropriate post matrix multiplication of 3.48 vields the following general 


expression for the least square output feedback gain matrix, F, as a function of a 


desired closed loop eigenstructure. bet x7! 
F = Qi + Dey! (eqn 3.49) 


Note that the right hand side of equation 3.49 is a function of the pseudo 
inverses of B and C! erm ressecuinueduatiens 34/5. [hesfeedback: gain. matrix, F. 
therefore is computed based on these least square solutions. As such, F will invoke the 
@esireduaiosed loop eigenstructure X andeA. inathe least squase,sense. or systems 
Where the number of states, inputs. and outputs are identical, then the solution 
becomes exact. As the number of inputs and outputs vary, then the solution becomes 
inexact by the nature of the pseudo inverse. This is a numerical interpretation of the 


. 
° 


classic restrictions on the desired eigenstructure presented by Srinathkumar [Ref. I 1]. 


A proof of this result using the matrix equations presented in this thesis is shown in 
Appendix B. Equation 3.49 is therefore more correctly termed the least square solution 
for the feedback gains, F. It is this solution which was used for the results presented in 
this thesis. 

Up to this point, no restrictions have been placed on the desired right eigenvector 
matrix, X, other than the right eigenvectors must form a linearly independent set. 
Additional restrictions on the right eigenvectors are shown in the following 


development. Rewriting equation 3.39 in block form yields, 


fC, “or 29 (I_,- FD) “!FC = XAX*!- A (eqn 3.50) 
D 
Pre multiplying both sides of 3.50 by, {U,, U,,}/ one has, 


Zain =D) FC =U alee cere (eqn 3.5 


U 
ee 


eee | 
@D Ly) 
Upon multiplying equation 3.51 by -1l, one has the following relationship 


resulting from the lower block, 
o= tA aw (eqn 3.52) 


Equation 3.52 is the matrix relationship [Ref. 21] from which the subspace constraint 


on each right eigenvector may be obtained. This subspace constraint 1s repeated 
below, 


xe N(U AS Jeke (eqn 3.53) 


where N denotes null space. Equation 3.53 is the only subspace restriction on the 
desired linearly independent right eigenvectors for the full state feedback case. 

The dimension, d&( ), of this particular subspace hereafter referred to as the right 
eigenspace, can be defined in the following way. Denoting Ker P as the kernel or null 


space and Im P as the image or range space of a mapping operator P; one has the 
identity [Ref. 16] 


d(X) = diver P). +2d(linieP) (eqn 3.54) 
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where Im P = PN. In this case, NX is the # - dimensional state space spanned by the 


linearly independent right eigenvectors. Solving equation 3.54 for d(Ker P), one has, 


d(Ker P) = n- d(Im P) (edn 3.5 


Cay 
~— 


Since d({m P) 1s also defined as the rank of P, one may rewrite equation 3.55 as, 
d(Ker P) = n - rank(P) (eqn 3.56) 


Substituting the right eigenspace operator for P now results in a definition for the 


dimension of the right eigenspace. 
d(Ker{U,)/(A - Al,)}) = n- rank{Uy, (A - Add) (eqn 3.56) 
and since, 
rank{U,, (A -2.1_)} = n-m (eqn 3.58) 
for full rank control (rank(B) = m) matrices, one has the following result, 
NICS WON ee (eqn 3.59) 


where Ker has been replaced with the original notation for the null space operator, N. 
Therefore, the allowable right eigenvector x,, must be a member of an m 
dimensional null subspace defined by equation 3.53 . Note further that for a rank 
degenerate control matrix, B, the subspace likewise becomes dimensionally degenerate. 
It will now be shown that in the presence of output feedback. an additional 
restriction of the left eigenvectors results from: a similar analysis. In order to show this 
additional restriction, let us initially assume the feed forward matrix, D to be identically 
null which is the case of output feedback without the addition of transnussion or 
blocking zeroes. There is no loss of generality with this assumption. In this case, 


equation 3.48 reduces to. 


pa Qe 2, Fug we (eqn 3.60) 


and substituting the expressiomeor bax terac 
F = Zee Cae ne oe (eqn 3.61) 


with the constraint that each right eigenvector is a member of a specific null space as 
expressed bv equation 3.53 . 

Pausing briefly, note that if ome assumed all the “States Were wa amelie on 
feedback. where the output matrix, C, becomes [,. equation 3.61 reduces to the 


eXpression Shown prewMousingiic aueg: 
a 7G (eqn 3.62) 


Comparing equations 3.62, 3.61. and 3.48. one notes the increased cost in 
computing F when proceeding from full state feedback to output feedback with feed 
forward control. 

Let us now return to analyzing the impact of output feedback on the left 
elgenvectors bv transposing equauon 3.38 with D identically null. 


Gipip! — Alaa (eqn 3.63) 


Factorization of C! via singular value decomposition vields, 


Tel = «Tox ; 
-(C ag Uae | Ba = ee eros (eqn 3.64) 
@ 
Pre matrix multiplication of equation 3.63 by (Ui, U te vields, 
1S eV. 1 F Bt = fC Gn, eae (eqn 3.65) 
ee 
® rata 


and from the lower block of equation 3.65, 


O(F'B!) = @ = UGE seas, (eqn 3.66) 
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Now using the following definition [Ref. 22] of the left eigenvector matrix. T. 
Tae (eqn 3.67) 
equation 3.66 becomes, 
@ = ee - tages (eqn 3.68) 
and since, 
A=Al (eqn 3.69) 
the final matrix expression for equation equation 3.66 becomes, 
ota woe (eqn 3.70) 
Post multiplying equation 3./0 by T yields, 
@T = U,,, (AIT - TA) (eqn 3.71) 
and in vector form, 
Oe 1) 


ee = Se (eqn 3.72) 


and hence for the output feedback case, the ith left eigenvector must be a member of 
the following null space, 


eis Sie 


yi -h ae); (eqn 3,73) 


[t can be simularly shown that the dimension of this space, defined as the left 


eigenspace, 1S, 


diN(U,, {Al - d3)} = (eqn 3.74) 


Cur 


Wietetecroulpml matix C is full rank. 


To summarize for the output feedback case without feed forward control, the 
feedback gain matrix. F, is explicitly defined by equation 3.61 with equations 3.53 and 
3.73 placing constraints on the right and left eigenvectors respectively. Additionally 
note that for the full state feedback case where C = L,, there ts no restriction on the 
left eigenvector, t, since U.,, does not exist and any left vector would satisfy equation 
3.71. Similarly note that for the full state feedback case where rank(B) 1s 2. or for the 
system with n inputs, there is also no subspace constraint on the right eigenvector. 
Therefore for the full state feedback case where mm = n, one can choose anv a linearly 
independent set of closed loop right eigenvectors for the desired closed loop modal 
structure. 

One now has at their disposal, constrained explicit expressions for calculating 
static feedback gains which invoke a desired closed loop eigenstructure in the least 
square sense. Table 1 summarizes the expressions for the feedback gains along with 


appropriate eigenvector constraints for eacn feedback scheme. 


YD IE 


FEEDBACK EXPRESSIONS AND EIGENVECTOR CONST 





Full State Feedback 
Sane i= -l;- Tywav-l 
eae - Ti. Line CNN = AO 
+e N(G,, (ASL) 


Output Feedback without Feedforward Control Loop 
= -ly- Tywawel ond 
ee Se alee — Bet Phe CVs 
G = NU ory (AC - ha 


Output Feedback with Feedforward Control Loop 
= -| 
For = Folly > DFop) 


x: € NU (A- ALY} 
a Nee Wa ey 
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As a preface to the ensuing discussion, let us examine the numerical and linear 
space definitions of the term auill space. Null space membership, as previously defined 
by equation 3.52 for example, will not be exactly satisfied due to finite precision 
arithmetic and svstem modelling uncertainty. Defining a null vector as ¢ and a null 


matrix as £, where 


ells << 1 (eqn 3. 


~~ 
Cay 
‘ wee’ 


G(E) << 1 (equ oe 70) 
allows one to more clearly define numerical null space membership. Therefore. let us 
account for computational precision by defining the right and left null vectors, €., and 


£7, as follows. 


Se Uren (eqn 3 


u 

~J 

~) 
~~” 


ef ae 


ety (At > ily) (eqn 3.78) 


Further, assume these vectors span respective right and left null spaces, 


Eveeeen ce) 21 £4} (Cdiiees 2) 

Ey = (£7) €19 ee Ein} (eqn 3.80) 
where, 

ion ae pu (eqn 3.81) 

E, ¢ gr-rank(C!) (eqn 3.82) 


7a) 


Finally note that for full rank B and C! matrices, the dimensions of the right and 


left null spaces are therefore, 


G(Ea = hae = ap (eqn 3.85) 


dE) =n-l=q (eqn 3.84) 


These dimensional definitions are used in the following discussion to more clearly 
define the algebraic constraints on the allowable eigenstructure. Let us now continue 


Withesuchwaudisciussiom 


C. RIGHT AND LEFT EIGENSPACES A GEOMTETRICtn Te Rene tArTior 

The algebraic subspace constraints noted previously can be difficult to envision 
for large order svstems. In addition, the added restrictions on the allowable right 
and;or left eigenvectors as one progresses from the full state feedback - full rank 
control matrix system to a constrained output feedback - rank degenerate control or 
output case has intuitive geometrical properties. It is the geometrical implications 
imposed by the algebraic constraints which motivate. in part, the following geometrical 
analvsis. 

The lattice diagram [Ref. 16] has proved to be a useful device to depict 
geometrical relationships between linear vector spaces. The following geometrical 


relationships are implied by Figure 3.1. 


EP Og exe (eqn 3.85) 
d(EP) < d@™) < d(X™) (eqn 3.86) 


where the symbol © denotes subspace. Equation 3.86 states formally that the 
dimension of #™ is less than the dimension of X™ and the dimension of Bee is less 
than that of A™, 
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Let us now assume, that X™ represents the state space of a controllable linear 


lume inVariant svstem such that, 
SS = 2" == R >™ a= ee eae (eqn oy) 


As there are non-unique state variable representations for a linear time invariant 
rcmmemrnere Mids be Several linearly independent eigenvector sets which are able to 
Span the state space. However if a vector 1s chosen from each of the m-dimensional 
spaces R™ to form spanning sets. one has selected particular eigenvectors which are 
associated with particular eigenvalues. It is this selection process which will be invoked 
by the feedback gain equations of Table I. 

Assume further that for each subspace. Lie there exists a mapping operator, 


Nj. Which maps a vector from RM Into a a numerical null vector. 
GaP Nee (eqn 3.88) 


Further assume that any p of these null vectors span a right null space, ee 


where, 
alee on Paes Pea) (eqn 3.89) 


where equation 3.89 has included all n right null vectors. 

The subsequent lattice diagram. denoted as the Right State Space Lattice 1s 
Shown in Figure 3.2. 

Clearly, N,; can be taken to be the right null space operator defined previously 
as, 


ee) (eqn 3.90) 


and Figure 3.2 geometricallv depicts the right eigenspace constraints posed by state 
feedback. The dual or left state space lattice is similarly constructed and is shown in 
Fieure 5:5. 

The final tool in constructing the total lattice diagram is to geometrically link the 


“a 


relationship between Figures 3.2 and 3.3. Let us define an operator P, such that. 


P= xix! (eqn 5.91) 


Therefore, P maps the right eigenvector matrix, X, into the left eigenvector 


matrix, T, as follows. 
T= PX = NIN Ix (eqn 3.92) 


and one may now map the allowable n right eigenvectors into their dual left 
eigenvector space. 

Likewise, we desire to develop an operator which will map the right null vectors 
represented by equation 3.89 into their dual left null space vectors represented by E/. 


For eachithmul! vector, one would thenihame. 
J ene (eqn 3:75) 
In terms of the ith right and left eigenvector, equation 3.93 becomes. 


IN Gx = Nat (eqn 3.94) 


Let us now define a vector eels the ith column of the [, identity matrix. One 


may therefore write an expression for t, as follows, 


t. = Ts. (eqiame:95) 


t = PXs. = Px; (eqn 3276) 
and therefore equation 3.94 becomes, 
J IN = SN ese (eqn 3.97) 
Solving for J: yields, 
J, = (NpPx (Nx) 7 


AAC (eqn sro) 


Od 
tJ 


In order to verify that equation 3.98 is correct, one must show that J; indeed 
al Ss 
maps €,; into €). 


Performing the mapping yields. 
(N pPX:\(N x3) 7 (N EX) (eqn 3.99) 


Noting that (N 


equation 35.99 vields. 


a ee — : 
bo) (DME x:) 1s equal to scalar unity (1.0), then the mapping of 


and J; maps €,; into €;. In this way, one may map the ‘n’ €.; null vectors into the 
respective ‘n’ left null vectors, €;. One may now depict the total space lattice diagram 
shown in Figure 3.4.. 

The geometrica! constraints on the allowable right and left eigenvectors shown in 
Figure 3.4 can be characterized as follows. The dimensions of the right and left null 
spaces. E, and E, are directly related to the rank of the null space operators N, and 
IN; For example, as the rank of N, decreases, the dimension of E. decreases. Since 
the right eigenvector x; must be mapped into € by N,;, the mapping becomes more 
geometrically restrictive. In this way, an increasing geometric constraint 1s placed on 
the might eigenvector x;. The dual is true for the left eigenvector t;. One may state the 


geometrical constraints in the following way. 


Lemma 3.1: The expressions of Table I explicitly define static feedback 
gains which will invoke a closed loop mght eigenstructure, Neca. alt the 
right eigenvectors, X;, which reside in Tis map into the right null space E, 


The dual vectors, t: must 


via the respective nuil space operator N--; 


r 
likewise reside in L:, and map into E, via Np. 


The concept of right and left null spaces comes about when one numerically 
converges on an allowable eigenvector by allowing the vector to rotate until the 
respective null vector, €, becomes small. In this way one numerically converges on 
eigenvectors which are members of RM Or R: by minimizing a norm of €, or ¢;. This 
solution technique was used in this thesis and provided the prime motivation for these 


geometrical discussions. Figure 3.4 has set the stage for geometrical analvsis of all the 


Loy, 
Loy. 


feedback cases to be presented. Let us begin with ®thesiatemeedback Gdscvcmimcstnc 
least restrictive with respect to allowable eigenstructure. 
Cuse I: Full State Feedback (im = n) 

In this case the diagram reduces to a single node for each eigenspace. There are 
no restrictions on the desired vectors other than linear independence and the feedback 
gains which will invoke such a closed loop structure are computed via equation 3.62. 

Case II: Full State Feedback (m < n) 
For this case, one has an initial restriction on the right eigenvectors but none on the 
left. Therefore the total lattice diagram consists of Figure 3.5 with subspace inclusions 
for the right eigenspace. Note the dimension of Bake defined previously bv equation 
5.83 . By comparing Figures 3.5 and 3.6, one motes tite frst level of restmiction iin 
regard to the allowable closed loop eigenstructure. 
Case II: Output Feedback (m = n, 1 = n) 

Case III is geometrically identical to Case I. The only restrictions are that the 
desired closed loop right and left eigenvectors form a bi-orthogonal set. Figure 3.5 
depicts the appropriate geometry. 

Case IV: Output Feedback (m = n,1l< n) 

For thas case, the restrictions lie omlxy with tae left eigenvectors. Wie Jarice 
diagram is the dual of Figure 3.6 and is is shown in Figure 3.7. 

Thus concludes the decoupled constraint cases and exemplifies the ease of 
solution for the gain matrix which will invoke desired closed loop eigenstructures. The 
coupled cases arise for systems employing output feedback where both the number of 
inputs and observations are less than the order of the state space. 

Case V: Output Feedback (m < nol < nyin = J 

The lattice diagram for this case is constructed by linking Figures 3.6 and 3.7 
with the mapping operator P and 1s depicted in Figure 3.8. Note from equations 3.83 
and 3.84 that, 


d(E.) = dGe)) Gor ol SLO) 


and therefore, the null spaces are equidimensional. 
Case VI; Output Feedback (in < nyl < mom < 2D 
The lattice diagram of Figure 3.8 remains for the remaining cases. The subtle 
distinction between Cases V and Case VI however, is that the dimensions of the left 


and right null space are not identical. For this case, 
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d(E.) > d(E.)) (eam 5.102) 


which implies geometrically that the right eigenspace constraint is more easily satisfied 
due to the Aigher dimension of the right null space. 
Case VIL: Output Feedback (m < nvl < nil < m) 


Case VII is the dual of Case VI, since 
d(E)) > d(E,) (eqn 3.103) 


Equation 5.103 implies that the left eigenspace constraints are more easilv satisfied 
than those of the right eigenspace due to the Aigher dimension of the left null space. 
This of course is the dual of Case VI in that the major computational expense will 
involve converging on allowable right eigenvector sets. Cases VI and VII are clearly 
computationally more difficult to solve than the previous cases. The quantitative 
interplay between the right and left eigenvector sets as functions of the open loop 
parameters remains to be clearly formulated. The attempt here was to show the 
qualitative interdependency by analyzing what was found to be true during the course 
of the research. It will be shown later in this thesis using two specific examples of 
Case VI, that the qualitative interpretations noted above are correct. 

This concludes the theoretical treatment of eigenstructure assignment as 
presented in this thesis. Prior to discussing some applications of the theory, let us 
reexamine equations 3.77 and 3.78 As noted previously. null space membership of the 
desired closed loop eigenvectors has been the central theme in much of the recent 
discussion. One must, therefore, numerically devise a scheme which guarantees such 
membership. In that the term null space implies convergence to a zero measure, a 
candidate for such a scheme would clearly involve a minimization. Minimizing a norm 
of the right null vector ¢,; or left null vector ¢, for example, would guarantee such 
convergence. The mechanics of such a minimization is the topic of the final chapter 
prior to presenting results of applving eigenstructure assignment to some existing 


control problems. 
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eure 3-5 Case (il: Full State Feedback {m < n)-Lattice Diagram. 
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Figure 3.7 Case IV: Output Feedback (m = n,1 < n) Lattice Diagram. 
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Figure 3.8 Case V: Output Feedback (m < n,l < n,m = 1) Lattice Diagram. 


IV. NUMERICAL OPTIMIZATION 


A. THE AUTOMATIC DESIGN SYNTHESIS (ADS) PROGRAM 

The use of numerical optimization techniques as an engineering design tool has 
matured with the advent of higher speed digital computers. In tandem with thus 
growth has come the development of algorithms and design strategies (Ref. 32] 
available for a wide variety of particular design tasks. Several numerical optimization 
techniques and strategies are resident [Ref. 35] in compiled Fortran code for use at the 
Naval Postgraduate School. In effect, the Automatic Design Svnthesis code can be 
used as a black box optimizer for a wide spectrum of disciplines. I[t is not the purpose 
here to discuss in detail all the numerical algorithms available through the ADS code, 
but only to describe the general design philosophy of the optimizer and to overview the 
particular strategies emploved during the course of the thesis research. 

A general purpose code, ADS contains algorithms which are able to solve the 


following general n-variable constrained minimization problem. 


Minimize: F(X) 
Subject to: 


g(X) <0,j = I.m_ inequality constraints 
hy (X) = 0,k = 1,1 equality constraints 


x! SX; Gs , 1 = It.n side constraints 


ee se A. ee: a 
Where \ = {X; Xa «. X,}° 1s a design variable vector. 
Convergence to a minimum value of the function F(X) without violation of the 
constraint criterion in accomplished via the following iterative scheme, 
eae ] 7 , q — ] 
x ea Go S (eqn 4.1) 


where, 
q = iteration number 
S4 = search direction vector 


ve 


ty = scalar weight applied to the search direction 
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The user is afforded flexibility of further tailoring the optimization scheme bv 
being able to designate any of the following three components of the ADS 
optimization algorithm: 


a. Optimization strategies such as_ Sequential Unconstrained Minimization 
Techniques (SUMT) or Augmented Lagrange Multiplier Methods which allow 


Pa 


tne wiser to reformulate the objective function, F(X), 


b. Search Direction computation metheds such as conjugate and variable metric 
first order methods which compute S* and. 


Cc. One dimensional search options such as Golden Section or, polynomial 
interpolation methods which deternune the magnitude of change in thé design 
variable during the muninuzation. ~ : = 

As the ADS ts designed to fulfill the general needs of a spectrum of engineering 
disciplines, the level of user sophistication beyond correct interpretation of the calling 
argumients 1s not necessary. However, as is the case of using any library tvpe code. one 
must correctly formulate the objective function and clearly interpret the iterative results 
of the ADS code. Due to the general nature of the objective function, this last 
Stateinent becomes increasingly important when little is known of the order or 
continuity of the function in the region of interest. Two tvpes of constrained 
nuninuzation problems were formulated for use during the research. Problem |] was a 
constrained nunimization problem with side constraints only and Problem II was a 
constrained minimization with inequality and side constraints. Let us discuss the 
strategies used for each of these two problems. 

Problem I 

A constrained nuninuzation problem with side constraints mav be posed as an 
unconstrained minimization problem. Bv specifving bounds on the design variables 
Within a specified region during the course of an unconstrained minimization, one 
implicitly invokes the side constraints. The most efficient search direction method for 
Problern | was found to be the Broyden-Fletcher-Shanno-Goldfarb (BFGS) variable 
metric method. This is a first order method in which the gradient information 1s 
computed by ADS via finite difference calculations. Often called a quasi-Newton 


method, the BFGS method computes the search direction, S4, as follows, 
= = Hee) (eqn 4.2) 


where VF(X@) is the ADS computed finite difference gradient at the gzA step and H is 


an iteratively computed matrix which orients the search direction. Initiallv (q=1) [1 1s 


45 


the identity matrix and therefore the initial search direction is in the direction of 


steepest descent. H is then updated after each iteration in the following way. 
Hot! = H1+D (eqn 4.3) 
where D is a symmetric matrix defined as, 
Dd = («+ t)pp! c* + ‘Hovpl a= p(H4y) 4) iG (eqn 4.4) 


The vectors p ands: pve dene by, 
p= Xa. ee 
y = VE(XY) - VE(XD) 
and o and tT are scalar vector products formed as follows. 


t= yt H4 y 

The one dimensional search routine used was the Golden Section method. As 
this method is a one-variable algorithm, the single “variable” for our purposes is the 
vector, X; OF t. The advantages of the method inchide no requirement [or E( mie 
have continuous derivatives and in addition the Golden Section has a known rate of 
convergence. Among the disadvantages which impacts our purposes is that the Golden 
Section assumes the objective function to be unimodal, or to have one minimum in the 
region of search. If one has an objective function which for example has several local 
minima, several solutions may exist depending on the bounds set on the design 
variables. As will be shown subsequently, the minimization of the null vectors, €,; and 


€;, Was performed using the Problem I formiulation. 


Problem II 


If one recasts the inequality constraint as a penalty function, P(X), where. 


P(X) = }{max(0.2.(X))}- ,J = I,n (eqn 4.5) 


then one may also pose Problem I{ as an unconstrained minimization problem in the 


following way [Ref. 32]. By forming a pseudo-objective function, @O(X.r,), 
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@(X.r,) = F(X) + Tp P(X) (eqn 4.6) 


and by again bounding the design variables. one now has a Sequential Unconstrained 
Minimization problem (SUMT) with an exterior penalty function, P(X). In equation 
4.6, Ty is a scalar weighting applied to the penalty P(X). 

Equation 4.6 is the formulation used in this thesis for such a minimization. The 
search direction used for Problem II was the Fletcher-Reeves (FR) conjugate method. 
Like the BFGS method, the FR is a first-order method which is an improved steepest 


descent algorithm. The search direction. $4 for this method is defined as, 


Sd = - VF(X4) + Basa: (eqn 4.7) 
where, 
B, = IWE(XD A409 F(X 9 Ly (eqn 4.8) 


As in Problem [, the Golden Section method was used for the one-dimensional search 
routine. Problems | and II were the ADS minimization strategies used during this 


Pesecien,) Wey will subsequently be referred to as such. 


B. THE NUMERICAL OPTIMIZATION PROBLEM 

The fundamental expressions for feedback gains noted in Table | involve 
eigenvector constraints written in terms of null space membership. Further, when these 
null space constraints are expressed numerically, they take the form of equations 3.77 
and 3.78 . The numerical objective than becomes one of minimizing some measure of 
ieee eandrerelt tui vector whicli satisfies such a numerical null space menibership. 
For the right eigenvector, one nught write such a numerical objective as an objective 


function expressed in terms of a euclidean distance measure, 
F(X) = Upp (A> AT xilly = legit (eqn 4.9) 
where |e -ll5 is the euclidean distance between the allowable subspace defined bv the 


desired closed loop eigenvalue, 4. , and the desired right eigenvector. x, . As the system 


is time invariant, the design freedom, or variables, would be all (unconstrained 
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minimization) or some (constrained nunimization) of the right eigenvector elements 
and not the open loop parameters. | 
1. State Feedback Controller Synthesis 
For purposes of illustration, let us assume one is synthesizing a state feedback 
regulator where there aren = four states and m = two inputs. Further, one desires the 


following closed loop eigenvector, x., to be associated with the closed loop eigenvalue. 


Moe 


i 


—— LX) 0 X3 git (eqn 4.10) 


where x, and X,-are unconstrained and may take on any numerical value. The 
constrained values, noted by the zeroes in elements two and four, are desired, for 
example, in order to satisfy a decoupling specification. \lathematically, this is a 


constrained nunimization problem and may be stated in the following wavy, 


Minimize: F(x,) 
where, 
F(x) = Upp 1A - Alyx) Hy = Hegl 
SUBiEcr to: 
XS =U 


Kaya U 


For real h., this is a four vanable constrained minimization problem with two 
side constraints. By bounding the design space (xy = Xg = 0), this becomes a Problem 
I formulation. In terms of real cost, this particular synthesis problem would entail ‘7’ 
such Probleni I minimizations before a feedback solution 1s computed. The side 
constraints mav also differ from vector to vector. ‘Note further that for systems with 
complex eigenvalues, the computational cost would decrease since one may employ the 
hnecessarv conjugate condition for the associated complex eigenvector. At this point. 
the minimization problem can be executed, the resulting eigenvectors are checked for 
independence, and the feedback controller can be synthesised. A robust decoupling 
controller for the CH-47 helicopter was synthesised by this method. Results will be 


shown in Chapter V1. 
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2. Output Feedback Controller Synthesis 

Let us now assume we must synthesize an output feedback controller with 
four states, two inputs, and / = 3 outputs. Computational cost is increased by the 
output feedback requirement since in addition to the right eigenvector constrained 
minimization problem, one of course must also satisfy the left eigenvector constraint. 
One may pose this synthesis problem in a variety of ways. The following scheme was 
successfully formulated during the research reported in this thesis. 

Converge on ‘n’ right eigenvectors by solving ‘n’ Problem I minimizations. 


b. Compute the following right residual sum. 


Re ena = len (eqn 4.11) 


c. Compute the corresponding left eigenvectors. t,, by the identity, 


Tacs (eqn 4.12) 


d. Compute the ‘n’ left null vectors, €; via equation 3.78 and compute the 
following left residual sum, 


RES, = Dllesll. a = in (eqn 4.13) 


e. Convergence criteria 1s now tested as the sum of the right and left residual 
sums, 


R(X,T) = Mille ll> + llegll5} <= p (eqn 4.14) 


Since the right residual sum is satisfied initially, the left residual sum will likely 
be out of tolerance. The design freedom here is to allow the right eigenvectors to varv 
in order to satisfy the left residual. Convergence is then obtained by returning to Step 
B.2.b. subsequent to allowing the right eigenvector elements to change so as to 
minimize the left residual sum. In this way R(X.T) will be at or below a specified 
tolerance p. This method is termed the indirect method since the left eigenvector 
constraints are being satisfied by allowing the corresponding right eigenvectors to 


change their orientation. 
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One may state the output feedback constrained minimization via the indirect 


method as a Problem I formulation as follows. 


Wiinimze: Riles 
Wwilere, 
R(X.T) = YEW lel, + Wyllegll} 


Subject vs: 


< 2 
= ih = Xupper 
where, 


“lower 


X = Right Eigenvector Matrix 
T = Left Eigenvector Matrix 


W >. W, = Scalar weighting applied to the residual sums 


The wadirect method for the output feedback case can become computationally 
inefficient for systems of high order. For example, a tenth order svstem with complex 
eigenstructure will contain twenty design variables per closed loop eigenvalue and 
require a tenth order complex matrix inversion Gimme each execution Of steps 
Hence for large order svstems, the Quiput feedbacks waihesisecchicme 1s miociticd: ima 
following way. Steps B.2.a. - B.2.d. remain the same however step B.2.e. becomes a 


left eigenvector nunimization problem in the form of Problem I. 


Minimize: G(t;) 
sNigte) 2ek 
Gt) = Ue CAT - AQ) My 
Subject to: 


neue 
lower — (lie Lupper 


Upon convergence to an allowable t,, the right null vectors are then computed 
to check if the right eigenvectors have been oriented out of the allowable right 
eigenspace. After several such iterations, one begins to-adaptively learn the behaviour 
of the system and through interactive coniputer execution, one will converge on a final 
solution. This technique was successfully performed on an F/A-18 dynanuc model. 

Note that an advantage of the indirect method is that one can exercise control 
on the bounds of the design vanables through the scalar weightings W, and W, and 


therefore exercise somie limits on the orientation matching. 


3. A Robust State Feedback Controller Synthesis 


For multi-variable control systems, the minimum singular value of the return 


difference matrix [Ref. 34] can be used as a robustness criterion, 
oe aie) = CL (eqn 4.15) 


where G = C(slI - |. lie 1, tiem tne feedback gains, F, in equation 4.15 may 
be considered quasi-optima! since 6,,, 2 1 for optimal state feedback controllers when 
the input weighting matrix is the identity matrix [Ref. 35]. By subtracting @ from both 


sides of equation 4.15, one formulates a new objective function K(X), where, 
K(X) = oe | UE ie ) (eqn 4.16) 
Substituting the state feedback expression for F from Table I vields 


Reo Stott + Z, we (XAX!-A)G)- a (eqn 4.17) 

Successful nuninuzation of K(X) with the constraints (g) that each desired 
right eigenvector be a member of the allowable subspace invoked by the desired closed 
loop eigenvalue will result in a robust quasi-optimal state feedback controller. The 
uniqueness of this formulation is that one can numerically synthesize an optimal state 
feedback controller with eigenstructure specification. This technique successfully 
designed a quasi-optimal decoupling controller for the CH-47 and will also be 
presented in Chapter VT. 

4. Feedback Controller Synthesis via Eigenvalue Shifting 

In B.1 and B.2 above, the design variables are the eigenvector elements as the 
closed loop eigenvalue remains fixed. One may recast the objective function by 
allowing the eigenvalue, A., to assume the role as the design variable while maintaining 
the eigenvector elements fixed. In this way. the feedback synthesis via eigenvalue 


shifting takes the form of the following nuninuzation problem. 


Mininuze H(i;) 


where, 


H(4;) = Up) A - ML ODll 
Siesect 10: 


real lower bound © Real(A;) S real upper bound 


imag lower bound = Imag(4.) S imag upper bound 


This is of course a Problem I mininuzation with only two design variables per 
each of the ‘n’ iterations. An advantage of this method 1s clearly one of computational 


cost. A disadvantage is that one mught sacrifice modal damping and natural frequency 


at the expense of maintaining a desired eigenvector structure. 

This concludes the framework for eigenstructure analysis and synthesis via 
specific numerical Optimization strategies. Let us now turn to a discusssion of the 
algorithm which formulates the theory presented in Chapters III and IV. 


tan 
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V. EIGENS: AN INTERACTIVE DESIGN ALGORITHMI 


A. DESIGN PHILOSOPHY 

The EIGENS program is an interactive Fortran algorithm designed for complex 
elgenstructure synthesis of systems up to tenth order. The tenth order limitation is 
easily modified for svstems of higher order by increasing the array sizes for all matrices 
in the program. Throughout the development of the program. interactive coding was 
used extensively not only for on line debugging but also due to the iterative nature of 
numerical opumization. In addition, by the verv nature of eigenstructure assignment. 
user familiarity with the system structure and subsequent interaction is a necessary 
ingredient for a converged solution of feedback gains. 

In that the program developed as a research-learning program over the period of 
the thesis research, some of the earlier synthesis routines such as the sJoore-.Vatrix and 
oore-Algebraic solutions, were never used for the results presented in this thesis. 
They were written early on to gain an understanding of the classical results presented 
bv Moore [Ref. 10] and were never exercised subsequent to coding the theory presented 
in Chapter III. All of the results presented in this thesis were computed based on the 
tneom onchapter III. 

The basic input data beyond the necessary open loop parameters include a 
desired closed loop eigenstructure. User verification of this data is by means of visual 
displav of the data. A verification data file is also written for future reference bv the 
user. Controllability checks of the open loop eigenvalues are then displayed to the 
user. Beyond these checks, the program relys on the user for guidance during the 
numerical synthesis portion. Some examples of the guidance needed are: 


1. Upper and lower bounds on the arbitrary and specified mght eigenvector 
elements or eigenvalues (Problem | minimization), 


to 


Acceptance of the closed loop design based on the null space residuals. 
3. Number of iterations and values for p (Problem II minimization). 
Thus the user becomes a required feedback loop in the synthesis process. This is 
the basic philosophy of the EIGENS code. The user becomes more familiar with the 
system as time progresses and subsequently becomes expert in the final structure of the 


closed loop design. A description of the major routines of EIGENS follows. 


in 
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B. PROGRAM DESCRIPTION 

As alluded to in previous section, there are two basic feedback gain solution 
procedures coded in the program. The Afoore-AMatrix/ \loore-digebraic solutions are 
limuted to real systems where the number of outputs are greater than the number of 
inputs (/>m). The Aautsky solution entails the theory presented in Chapter I}! and 1s 
onlv limited by the tenth order requirement. Therefore, during the course of the 
subsequent discussion, when reference 1s made to the A/oore solution, it will be brief. 

A note with regard to the A/oore solutions must be made. For the solutions. 
EIGENS requires the desired closed loop right ergenvectors to be input in the followime 


form. 
v. = Cx. (eat oa 


Where C is the output matrix and x, is the desired closed loop mght eigenvector. 
(Presently v. must be input irrespective of using the Moore or Kautsky solutions). 
Lpon completion of the sfoore routines, the subsequent closed loop eigenvectors are 
then checked for hnear independence. If the vectors are not independent, the user is 
queried as to new values of v, in equation 5.1 for reentry into the A/oore routines. 
Upon converging on an independent set of mght eigenvectors, feedback gains, F, are 
then computed. The reader is referred to [Ref. 10] for the details of this procedure. 

The EIGENS Fortran listing 1s shown as Appendix @ Sricure 5. eepictsaae 
general flowchart for the EIGENS code and the reader is referred to Appendix C for 
detailed analvsis. In the discussion which follows, only the main program and those 
subroutines which perform the feedback gain computations are described. Auxiharv 
subroutines which perform such computations as complex singular value 
decomposition (CSVD). complex matrix multiphcation (CMAMTL), etc.. will not be 
discussed in detail. These auxiharv programs are masked to the user and are only 
required for the execution of EIGEINS) Agtdesenpitonm or sinciiem mart DICCKsars 
discussed below. Notation for the number of states, inputs, and outputs is N, MM. and 
L Tes pectiicine 

1. Upon completion of initiahzations, the data is read from File Ol. as follows. 
(The format statement numbers are designated bv ‘xx’ for ease of description 
and the read format 1s shown adjacent to éach read statement statement). 

READ(LXx)TITLE (2044) ° 
READ Xx) Nie ee Ee (rie 


54 


IFEED = 1 (State Feedback) 

IFEED = 2 (Output Feedback) 

[Seem — 5 (Ourout Feedbackmubeedivud) 
READ(1.xx)(ACJ)J = 1.N).1 = 1.N) (6F12.5) 
hee werd) et — TN) (6F 12.5) 
READ(I.Xxx)((C(1.J)J = 1.N).1= 1.L) (6F12.5) 
ieee ior 2 oni Oo READ EIGD 
READ(Txx)((D(1.J).J = 1,Mf).1 = 1.L) (6F 12.5) 
READ(L.XX)EIGD(I) (Desired C-Loop 4,) (2F 12.5) 
READ(LXX)E(VJ.1) (Desired Cx;) (2F 12.5) 
READ(L.Xxx)VD(J,1) (Desired x,) (2F 12.5) 


( 
( 


2. The data is then displaved to the user for input verification. 


Cid 


After computing the open loop ergenvalues, the controllability of each aA. is then 
computed and displaved by a controllability flag. If the controllability flag 
equals one. then the open loop ergenvalue can be shifted via state feedback. IT 
the flag equals zero. then the open loop eigenvalue is invariant under state 
feedback. in this case the eigenvalue cannot be shifted. 


4. Subsequent to the controllability computations, the. user is then allowed to 
change the desired closed loop érgenstructure only if the A/oore solutions are 
going to be invoked. !he user _miust change File 01 to input a new desired 
closed loop eigenstructure if the Aaustky solution ts to be used. 


sa 


Select feedback gain solutions (Moore or Kautsky). 
6. Drsplav results. 

As the Aautsky solution was used for the results presented here, this subroutine 
will be discussed in detail. As a final discussion of the /oore solutions. note that in 
Figure 5.1 these solutions are complete when the resulting right eigenvectors are 
linearly independent. The resulting feedback gains are then computed. the user 1s 
queried as to the necessity of a stngular value analysis of the return difference matrix, 
and the final design results are displayed. Let us now turn to the Aautsky solution 


which 1s coded within the KVECT subroutine. 


C. SUBROUTINE KVECT 

Figure 5.2 depicts the flowchart for KVECT. Subsequent to initializations. the 
SVD of B is performed and the necessary block matrices are comiputed. The 
subroutine then performs ‘n’ Problem I minimizations to construct the allowable right 
eigenvector set nearest to the desired modal set. The user then has the option of 


minimizing 6,1 + FG) (Problem II minimization) for the full state feedback case 


Ca 
Cn 


onlv. If output feedback synthesis is required (IFEED = 2 or 3) and the rank of C is 
less than ‘n’. KVECT then calls FEEDEF for further computations. Upon completion 
of feedback gain computations. the code returns to the main program for displav of 


results and any further processing the user nught desire. 


D. SUBROUTINE FEE EE 

Figure 5.3 depicts the flow for the FEEWEP subroutines Note thane suser aid. 
access to the Problem II mininuzation process via designation of the scalar weightings 
W, and W; Upon completion of the minimization and feedback gain calculations, the 


program returns to KVECT. 
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oh 


| INPUT DATA| 


DISPLAY INPUT DATA 


COMPUTE O-Loon EIGENVALUES & DISPLAY CONTROLLABILITY FLAGS 


| GieiwGe DESIKED EIGENSTRUCT URE? | 
= ==] =.) |. Le |e 


a 


eS {NO 

eS a 

| CHG XAX14,,-No}4 DISPLAY XA eg 
: | 


—/ 











DEGIDE ON SOLUTION TECHNIQUE 
[MOORE SOLU EIONS | | KAUTSKY SOLUTIONS | 


SO x; (NDEPENDENT} (VES) [CALL KVECT] 
SS El 
| 


CONPPUTE F 






SINGUEAR VALUE ANALYSIS OF RETURN DIFFERENCE MATRIN? 


' ' 


i Yes No 


[CALL SVA =| DISPLAY RESULTS | END 


Figure 5.1 EIGENS General Flowchart. 
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INITIALIZATION 


[COMPUTE SVD of B | 








r3 
| eOuEeTe F | CALL FEEDEF | 


RTN TO MAIN 







DESIRE MIN OF ¢ (RDM)? 


CALL ADS (PROBLEM Il MINIMIZATION) 


Figure 5.2 Subroutine KVECT. 
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INITIALIZATION 















COMPUTE AND DISPLAY 


Res) = eer 


Y 





UNSAT 


Y 


- COMPUTE F] 


CALL ADS FOR PROBLEM II MINIMIZATION 


ENTER W,, W, 





Melton |OurseC Ty 


Figure 5.3 Subroutine FEEDEF. 


VI. MINO CONTROLLER DESIGN DEMONSTRATIONS 


A. A ROBUST DECOUPLING Sipia veer enc CONTROLER: 
The lateral dynamics of the CH-47 helicopter (Ref. 36] have the following state 


variable representation. 


x = Ax + Bu (eqn 6.1) 


x (eqn 6.2) 


A 
I 


where the state vector is defined as, 


X =" {Vous jt (eqn G23) 


and the units of the vector elements are, 


X) = V = y velocn = (ieee) 
xX» = p = roll rate (radsec)= 
bile ea els cca (rad‘sec) 
Xq = ® = bank angle (rad) 


The system matrices are shown in [able 2. 
Lateral stability augmentation (LSA) to a roll command input, 6, is accomplished 


via state feedback with feedforward as follows, 


S 
I 


Ext aGi50 (eqn 6.4) 
where, 


u= {p, fale (eqmeon)) 
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| TABLE ? 
| CH-47, LATERAL DYNAMICS MODEL 


as. 
ws) 
2) 


-2.2) -1.452 -0.15 $1699 Dleeen:9 5 Lmeo0 2D 
O01 -0.70 -0.07 00.00 0.0 -$.37 Oo 10 0 
00m, -0.05 -0.05 00.00 0.34 0.02 OO 1 O | 
! 0.00 1.00 0.11 00.00 0.00 0.00 00 0 | | 
| 
and, 
p, = yaw rate rotor deflection control 
Py = roll rate rotor deflection control 
G. is the fourth column of the state feedback matrix. F. 
G, = amyperem))* (eqn 6.6) 


In that feedforward control has no influence on the resulting closed loop 
eigenvalues, there exist several alternatives with regard to choosing an accepradle form 
for G5. As the system Zeroes are invariant under state feedback. an acceptable form 

might be one which allows flexibility in invoking specific dynamuc and static error 
responses to the system [Ref. 37]. No modification to G+ was performed for this 
example. 

The design requirements for the state feedback controller are: 


a. Improve the performance and robustness of the system with respect to 
uncertainties at the plant input and. 


b. Shift the open loop eigenvalues from, 


Nei. diag{-2.098 -1.079 0.207 -0.050} (eqn 6.7) 


to the following closed loop eigenvalues, 


-— 


ere cia Ages 120 el? S10) -9:'652 -2.125} (eqn 6.8) 
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Improvement of the performance and robustness can be based on several 
measures [Ref. 38]. For the purpose of this example. increasing the minimum singular 
value of the return difference matrix, Geel + FG(jo)}for wm S 50.0 radians was used 
as a robustness criterion. G is the transfer function matrix between the input u and 
OULDUTG met las Ay lg. In the discussions below, the term J//.3fO robustness 1s 
mila, + FG) defined above. 


Sandell [Ref. 36] et. al. presented three different feedback gain solutions which 


synonymous with the o 


successfully invoked the Ac; above. Two of the three lacked MIMO robustness since 
G ,, of the return difference matrix had values of as low as 0.3. This is a prime example 
of the non uniqueness of solutions for F when implementing a pole placement 
algorithm for MIMO systems. In other words, a particular set of feedback gains, F. 
will invoke a specific robustness measure while simultaneously shifting the eigenvalues. 
Gordon [Ref. 8] exploited this non uniqueness using numerical optinuzation techniques 
and designed robust feedback controllers which simultaneously shifted the eigenvalues 


and set o(I., + FG) greater than or equal to 0% Another way ofimprovine the 


m 
robustness of the system is bv designing an optimal LQG controller. In this wav the 
degrees of freedom bevond pole placement take the form of an optimal control 
solutions. Chow [Ref. 9] designed such an optimal state feedback controller while 
simultaneously shifting Ag; to Ac. 

The eigenstructures of these designs designated as on-Robust, Gordon. and. 
Chow, are depicted in Table 3 in orders of increasing robustness. Examunation of the 
elgenstructures reveal an increased modal decoupling of yaw rate as the robustness 
improves. It is this observation which prompted the use of eigenstructure assignment 


to compute a feedback solution. By using the following desired eigenstructure. 


Ke 
NX See 
ONG: x 


XOX: Gx) 


A = dias’-25.120 212510 2omo2 aes) 


where x 1S an arbitrary design variable, and 0 is a specified value for the decoupling: 


and by executing the State FeedSack @ontrollerss wae mproccdtre Ol (heve| Grave 


code, the feedback solution denoted as EIGENS in Table 3 was obtained. Note the 
decoupling of the yaw rate elements and the resulting Ac,. Figure 6.1 depicts the 
resulting minimum singular value plots of the four designs. Note that robustness and 
eigenvalue placement was achieved simultaneously in a rather straightforward manner 


using e1genstructure assignment. 





UIE 8 
ene eOLCOLP RING state FEEDBACK DESIGNS 


Design Eigenstructure 
Feedback Gains 


Non-Robust Design 


-24.80 -11.42 -10.30 -2.1 
ler an) -/0.6 Poe 0.416 0.641 0.701 1.000 
-).024 | -0.37 7.99 O117 O40] 0.404 -0.00§ 
-1.000 1.000 [.000 0.019 | 
0.000 -0.045 -)).030 O00 | 
Gordon Design 
-24.90 -11.90 -10.70 -2.34 
14.2 -3.6 -78.0 61.0 0.415 0.235 -0.338 -1.000 
0.05 2.6 On 1220 -).122 1.000 - 1.000 0.031 
! -{.000  -0.124 -0.095 -Q.205 
009 -0.083 ° 0.093 -0.004 
IGE Neeson 
ee 1250 -10.50 Sale! 
(ae -2.57  -34.64 -59.94 0.002  -0.254 -0.364 - 1.000 
-1.79 4.05 -5.10 28.01 “1.000 -1.000 - 1.000 “0015 
-0.004 0.0/2 0.083 (ee) 
0.040 0.080 0.095 0.003 | 
Chow Design 
a 0)..- 11.62 - 10.40 -2.10 
-0.65 -0.36  -34.64 -6.60 0.003 -0.290 0.409 - 1.000 
-0.022 4.14 4.64 30.64 -1.Q000 — -1.000 1.000 0.008 
-0.002 0.042 = U7 0.020 
0.040 0.085 -0.096 -0.005 





B. A QUASI-OPTIMAL STATE FEEDBACK DECOUPLING CONTROLLER 

As noted previouslv. Chow [Ref. 9] successfully coded an algorithm which will 
obtain an optimal state feedback LQG control solution which invokes a desired Ac). 
Table 4 depicts the eigenstructure of one of his solutions for the CH-47 lateral stability 
controller. Note however that the yaw rate element associated with the fast eigenvalue, 
hg = -2.125, exhibits some coupling. By inserting a numerical zero in place of the 
eigenvector elemental value of 0.1737 for x4, and retaining the rest of the 
eigenstructure as inputs to the EIGENS algorithm, the Yaw Decoupled design 
structure was obtained. The resulting minimum singular value of the return difference 
matrix (1 + FG) for this design, however, decreased to approximately O72. et deals 
point, one has an acceptable decoupling design but it is not optimal. since o,(I,, + 
FG) is less than 1.0, Using the vaw decoupled cigenstmictuire as inputs to the Komus 
State Feedback Controller Svnthesis procedure of the EJGENS code, a mininuzation of 
equation 4.17 resulted in a value of @ of 0.905. As @ is nearly one for this solution. the 
feedback gains are termed Quasi-Optimal and the resulting eigenstructure is shown in 
Table 4. Note the yaw rate decoupling throughout the eigenvector matrix. Figure 6.2 
shows the progression of the minimum singular value for each of these designs and 
clearly notes the increased robustness of the Quasi-Optimal solution over the Yaw 
Decoupled solution. Figure 6.3 depicts the resulting transient response to a 2.0 sec 0.1 
radian roll pulse command for the Quasi-Optimal Yaw decoupled system. Note the 


essentially zero (107 radysec) vavendire response: 


C. A ROBUST OUTPUT FEEDEAGK COREE OIE 
The state variable lateral dvnamics model of the L-1011 transport augmented 
with rudder and aileron dynanucs 1s shown below [Ref. 24]. 


X = AaugX a | 3306 (eqn 6.9) 


ee 
I 


oe (eqn G. 1} 
where the augmented State vector isidetimedmnis, 
X; = p,, rudder deflection (deg) 


X> = p, , aileron deflection (deg) 


= 
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Clive Pei STATE FEEDBACK DESIGNS 


ABLE 4 


| 


| 





Design Eigenstructure | 
-25.120 -12.509-9.651 —-2.125 | 
-0.0033 -0.2493 -0.46530 -0,.9847 
Chow LQG 0.9993 0.5654 208736 6.0179 
0.0001 0.0022 -).0405 0.1737 | 
-).0398 O72 0.0916 "-0.0006 
2 ele! -12.510 -§.094 24156 
-0.0033 (23935 eo 6103 - 1.0000 
Yaw 0.999? 0.9634 0.7862 0.008? 
Decoupled 0.0001 0.0022 -0.0023 ~—--0:0004 
-0.0398 -0.0772 -0.0971 -0.0038 
24.661 eS el -$.780 DaONE®) 
a -0.0018 -0.2492 —-0.5326 1.0000 
Quasi-Optima! 0.9992 -().963¢ -).8409 -0.004 1 
Yaw Decoupled 0.0043 0.0022 00046 00602 
-Y.0405 ONO O.0937 O.OOLS 





X3 = @ , bank angle (deg) 
= ©, yaeerate (deg; sec) 
X5 = p. roll rate (deg;sec) 


Xo = B, sideslip angle (deg) 


7 = i washout filter state 


WoO ’ 


The input vector.u .is composed of the rudder and aileron commands, p, and p, . 
u =f q 6.11 
(Po pe (eqn ). ) 


The system matrices are shown in Table 5. 
Sobel and Shapiro [Ref. 24] applied the classical results of Moore [Ref. 10] to the 
design of a lateral stability augmentation system (LSAS) for the L-IOI1 aircraft. The 


following design requirements set forth in [Ref. 24] were used. 





TABLE 5 
L-1011 LATERAD Di VA MiGs vie wel 


A 
- 20.00 0.00 0.00 0.00 0.00 0.00 0.00 
0.00  -25.00 0.00 0.00 0.00 0.00 J.00 | 
0.00 0.00 0.00 Q.00 1.QO 0.00 0.00 
-), 744 -0).032 0.00 -).154 -.0042 1.54 0.00 
0.337. =12120 0.00 (). 249 - 1.00 - 5,20 0.00 
0.020 0.00 0.0386 -0.996 -.Q003 -0:117 0.00 
0.G0 0.00 0.00 0.500 0.00 0.00 -0.500 
B 
| 20.00 0.00 
| 0.00 25.00 
mitx2 
C 





a. Shift the open loop roll and dutch rolivemenvaiues to -1-5 = 1-3; and =2.0e 
1.0} respectively, and, 


b. Decouple roll rate and bank angle from the dutch roll vectors and decouple vaw 
rate and sideslip angle from the roll vectors. 


This design problem was executed via the Output Feedback Svnthesis procedure 
of the EIGENS code subsequent to a modell reduemen. Simce the first order aceiauen 
eigenvalues Were an order of magnitude greater than the aircraft and washout filter 
poles, the faster actuators Were ignored during the design synthesis. Lpon computing 
the feedback gains, the slow system was then augmented to include the faster actuator 
dynamics prior to transient response analysis. This technique of eigenspace separation 
becomes a computational necessity when synthesisizing controllers for high order 
augmented linear systems. An augmented linear dynanuc model of the F/A-1S tactical 
aircraft for example [Ref. 39] consists of fifty-five state variables. 

Upon reducing the model to five states, the following desired eigenstructure was 
input to the EGE owode 
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Where x again denotes an arbitrary design variable. The resulting feedback gains and 
elgenstructures are compared with those of Sobel and Shapiro in Table 6. The closed 
loop responses to an initial sideslip angle of B = 1.0 degree are shown in Figure 6.4. 
miewne sor) Gepicts the response Gsm (the SlGie soegencrated gains.. Figure 6.6 
compares the minimum singular value plots of the two designs. The designs have 
nearly identical robustness properties. 

This concludes the discussions with regard to designing robust MIMO 
controllers. The design technique has been shown to provide flexibility towards 
Improving an existing robust or optimal design. It also allows the designer to exercise 
control over the modal content of the resulting system within the subspace constraints 
noted in Chapter III. It is this modal control which provided the motivation to 
investigate the application of eigenstructure assignmient to reconfigure damaged aircraft 
control systems. Damage to aircraft control surfaces, wing, bodv profiles, or to control 
actuators in effect change the resulting closed loop modal eigenstructure. If one were 
aole to regain the undamaged modal structure. then one has reconfigured the aircraft 


control system. Let us now turn to a discussion of such a concept. 
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Ne ee DO] WA TION®OFEIGENSTRUCTURE ASSIGNMENT TO SELF 
RECONFIGURING ae en eee CONTROL ERS AN ES 


A. PROBLEM STATEMENT 
Prior to defining the objectives of a self - reconfiguring A/ZA/O controller, one 

must Clearly state the types of system changes and/or deficiencies which might require 
the flexibility of such a device. In this thesis, the design requirement of the aircraft 
under analysis was assumed to be the undamaged or design dominant eigenstructure for a 
specific airspeed, altitude and mission configuration. A svstem change or deficiency 
might include: 

a. <dsvmmetric or symmetric degradation of control surface effectiveness. 

b. Asymmetric or symmetric control surface loss, 

c. Single or multiple actuator degradation or failure, 

dad. Single or multiple sensor degradation or failure, or 


e. Any aircraft damage which significantly changes the stability derivatives and 
therefore the modal response of the aircraft. 


The design objective of a self - reconfiguring A/ZA/O controller as interpreted in 
this thesis is therefore to regain the undamaged modal structure subsequent to such 
svstem deficiencies via a new or reconfigured set of feedback gains. The objective is 
not a systems approach to reconfiguration but rather a tailored algorithm which 
extends the application of eigenstructure assigninent. The reader is referred to [Ref. 40] 
as an example of what is termed a systems approach to the reconfiguration problem. 


A mathematical definition of such a controller might be stated in the following way, 


Problein Statement 
Does there exist, and if so, what are the new set of feedback gains required to regain 


the desired dominant eigenstructure subsequent to a system deficiency? 


In terms of the overall flight control system, there are additional assumptions 
beside the existence of a solution which are implicit in this problem statement. The 
three most recognizable are: 


a. the PORGIEE ED or damage, is assuined to be detectable in a time scale much faster 
than the response time of the aircraft, 


b. Sufficient moment and force authority exist in the remaining undamaged coutrol 
surfaces to overcome the deficiencies and, 


We 


c. Appropriate feedback loops exist between the sensed motion variable and all 
available control surfaces. 


Note that the objective of the reconfigured controller in this thesis 1s to regain 
the undamaged modal response with the assumption that the system deficiency has 
been detected. This is not to say however that the technique described below cannot be 
applied to the detection process. The concept may be equallv applied to detection or 


observer design. 


B. ALGEBRAIC SOLUTION 

An algebraic solution to the problem used in this thesis is presented as follows. 
It was shown previously that for the output feedback case, the set of unique feedback 
gains, F, which invoke m x 7 elements of a desired right eigenvector matrix, .., and 


max(in,) elements of the eigenvalue matrix, A, in the least square sense, are defined by. 
F = Zire Gh oun rama el (eqn 7.1) 


Where each right and left eigenvector must be members of null spaces defined by their 


respective closed loop eigenvalues, h., 


x. € ee A eles (eqn 7-2) 


CP 5T- a T 3 } 5 
a =e AC Cae) oy, (eqiiyecr 
In order to facilitate the analysis, let us rewrite equation 7.1 by substituting B 


; -l;- T -l;- T 
for tee Cae and Se for i Vee 


z 


F = B(XAX?!- A)C 


7 (eqn 7.4) . 


In equation 7.4 let us define the undamaged dominant modal structure. or design 


requirement noted above, by designating the matrix /V/, where, 


M = XAX7! = BFC +A (eqn 7.5) 
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as the modal matrix. Note that svstem deficiencies or damage as defined previously, 
would result in either collective or distributional changes to the matrix triple (A.B.C). 
A large change in the control matrix B for example. would occur if a particular control 
surface was rendered ineffective by combat damage. Such a change might invoke 
zeroes in B and perhaps even cause rank degeneracy in the control matrix. Let us 
denote such changes as 6A. 6B. and 6C. Further, if the feedback gains in 7.4 were held 
constant, then the modal matrix, A/, would likewise undergo changes. 6M. since if the 


feedback gains were to be held constant in 7.4, the following equality would arise. 
= Dolan = OMS ON) (C, + OC.) (eqn 726) 


Again, cases may arise where OM could represent benign responses such as decreased 
pitch response due to synimetrical elevator degradation or severe changes such as an 
undesired roll and yaw response from pitch commands due to asymmetric elevator 
degradation. In order to maintain the integrity of the donunant modes of the moda! 
matrix, iW/, constant in /.6, and thereby regain the undamaged modal response. one 
could allow the feedback gains F to undergo a perturbation 6F. to lessen the 
magnitude of OM. The flexibility of eigenstructure assignment and its suitability for 
solution bv numerical optinuzation techniques allow one to perform such a calculation. 
For example, if one required the closed loop eigenvalues, A, to remain constant. one 
would allow the closed loop eigenvector matrix. X, to assume the role of design 
variables in an optimization routine to satisfy equation 7.2. By converging to such a 
solution and designating the subsequent changes to the modal matrix M as 6m, where 


Om represents minor changes to the dominant modes, one has, 
ee tee (bo) OB) + Om (A + OA)KC, + 6C,) (eqn 7.7) 


with the additional constraints that the right and left eigenvectors must now be 


members of the following perturbed null spaces, 


x € L{(Up) + 6U,,) (A + SA-AI)} (eqn 7.8) 
Merb Ol.) (A + OA! = 4,1,)} (eqn 7.9) 


i 


Note that in equations 7.8 and 7.9, the changed open loop parameters are A + OA, B 
+ 6B, and C + 6C and as such remain constant. If one desires a specified closed loop 
eigenvalue matrix, A, then one must allow the eigenvectors x; and t, to rotate until 
equations 7.8 and 7.9 are satisfied. If such a solution exists, then one has reconfigured 
the svstem) to regain a response close to the undamaged response. Note additionally 
that one may apply the concept of eigenvalue shifting described in Chapter VI. Section 
B.4. to satisfv the null space requirements of equation 7.8 and 7.9. Equations 7.7, 7.8, 
and 7.9 are the Key relations used in the reconfiguration algorithm presented in this 


thesis. 


C. RECONFIGURATION ALGORITHM 

The reconfiguration algorithm presented in this thesis which codes the kev 
relations noted above can facilitate analysis of a fifty - five state variable model with 
up to ten inputs and eighteen inputs. It 1s composed of three sequentially 
interdependent Fortran algorithms RECOMF. ERSPAGE, ELSPACE) whieh exeenie 
the reconfiguration constraints noted in equations 7.7 through 7.9 It is assumed that 
the user has independently computed a set of feedback gains for a particular svstem 
Which invoke a satisfactory eigenstructure. The reconfiguration algorithm initializes 
the design analysis with the user provided data and computes the modal matrix, A/, for 
further use. The algorithms were coded for execution on the Naval Postgraduate 
School IBM - 370 mainframe via interactive access through compatible user terminals. 
The reader is referred to Appendices D, E, amd’ F for the program listiiossaeee 
sequential description of a typical reconfiguration flow is described below. Acronyms 
to the left of the program name are designated as read files, those to the right are 
designated write data files. 


a. RECONF reads the undamaged svstem matrices (A,B.C,F) and writes the 
undamaged modal eigenstructure (X.A). 


RECOX F-.---> ----1 RECOM > EG 


b. RECONF reads the user provided damaged svstem matrices (RECOXA) and 
undamaged modal eigenstructure (UNDETIG) and writes the appropriate right 
eigenstriucture data (ERSPA an for right null space analvsis (7.8). The user has 
control over the order of the design Space bv designating the upper and lower 
bounds of the eigenvalues of interest: Im this wav, tlie wser aw sv nthesizeuene 
entire eigenspace by segmenting the whole space into iterative segments of 
design spaces or may specifv a reduced order design eigenspace. 


RECOXX <---> ----| REGONF (= = ERG Gr 
CNDEIG 


c. ERSPACE reads the right eigenspace datayandecalls the ADS erecranmr 
nuninuze a specific normed Vector distance between the undamaged right 
eigenvector and the perturbed (damaged) right null space (7.8). Upon 
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convergence, the appropriate left eigenstructure data is written (ELSPACE) for 
left null space analvsis (equation 7.9). 


ERSPACE---- > ----( ERSPACE}---- > ----ELSPACE 


PESPACE reads the eigenstructure data and uses the ADS program to 
mininuze the euclidean distance between the desired left eigenvector and 
perturbed (damaged) left. null space. The user has the option of performing the 
nunimization by either eigenvectcr or eigenvalue shifting. After convergence is 
obtained for each left e:génvector. the right null space résidual is also displaved 
to alert the user of anv conflict with the resulting right eigenvector null. space 
Geme@erso, df Sich a Comilict arose. the code could be modified to rewrite the 
ERSPACE data file for reentry into the ERSPACE algorithm. No such 
hed@imement iias been noted for the model under analvsis for the research 
fepertea im this thesis, @his is due to ithe fact that for the_F A-ISA hnear 
dynamic model presented in Chapter VIII,_the dimensions of E. and E, are 45 
amGeemepespectivel\. Therefore d(@® adit). Pon completion of the (oft null 
Space anaivsis, ELSPACE writes the optimized eigenstructure (OPTEIG) for 
use by RECONF to calculate the reconfigured gains. 


ELSPACE---- > ----{ ELSPACE}---- > ----- Cy ead sled lis 
RECONF reads_the Ss ates eigenstructure and calculates. the resulting 
feedback gains (FRECON), reconfigtired eigenstructure (RECEIG) and required 
time respcnse data for plotting. (OPTAAA) for plotting. Plotting 1s performed 
bv auxiliary programis not described in this thesis. 
RECOXNX---- > ----RECONF----> -----FRECON, OPTEIG 
NeCEIG, OPT XNA 


A sample run is presented in Appendix G. 


Te 


VIII. A RECONFIGURED SOLUTION DEMONSTRATION 


A. BACKGROUND 

The F’A-ISA was chosen as a demonstration vehicle for the solution technique 
posed in Chapter VII due to its digital flight control svstem and availability of control 
surfaces for reconfiguration. A current tactical aircraft in the U.S. Navy and Marine 
Corps inventory, its primary fhght control is baselined as a control augmentation system 
which is implemented via flvy-by-wire technology [Ref. 41]. The discussion will continue 
with a brief description of the aircraft control system and dynamic model followed bv 


specific damage scenarios which were treated during the research reported here. 


B. F/A-18A SYSTEM OVERVIEW 

The F/A-1SA control augmentation system uses feedback gain scheduling, cross 
axis paths such as rolling surface to rudder, and closed loop control for acceptable 
flving quality and aircraft stabilitv. Flving quality guidelines are based on military 
specification MIL-F-8785B Level I requirements for high maneuverability aircraft 
[Ref 41]. Aircraft stability margins are per MIL-F-94900 which require 6 db of gain 
margin for all closed loop modes. Control law computations are performed via parallel 
digital processing of angle of attack, normal acceleration, and dynamic, static air data 
to invoke the desired responses of various flight conditions. Figure 8.1 is taken from 
(Ref. 41] to show the fhght control svstem from a functional level. 

Figure 8.2 depicts the ten control surfaces of the aircraft. In the undaimaeed 
configuration, longitudinal control is accomplished via syymmetric deflection of nght 
and left stabilators and leading’trailing edge flaps. Lateral directional control is 
accomplished via differential deflection of the mght and left stabilators. ailerons, 
leading ‘trailing edge flaps, and synchronous rudder deflections. Each flight control 
surface is driven by electro-hydraulic servoactuators with known dynamics. Rate gvros 
and angle of attack sensors provide the sensed motion data which is input to the digital 
computers for primary data processing during the flight control mode. 

As mentioned previously, the primarv inner loop control is accomplished via 
three-axis air data and angle of attack gain scheduled feedback control. Control law 
computations are of two categories: Power Approach for take off and landing and Auto 
Flap Up for all other flight modes. Only the Auto Flap Mode was incorporated in the 


dvnamic model used during the thesis. 


SO 


C. F/A-I8SA LINEARIZED DYNAMIC MODEL 
The linearized F;A-18A continuous state variable model for fighter escort 


configuration is as follows. 


oe 
l 


Or) 66 (eqn 8.1) 


ms 
II 


Cotas DAG (can &.2) 
where the state vector is composed of both the longitudinal and lateral aircraft states. 
x—{u-woaOrpv op}! (eqn 8.3) 

pie te wstate vector elements are. 

u = forward velocity 

w = vertical velocity 

ia Olen tae 

§ = pitch attitude 

r = yaw rate 

pe collate 

v = side velocity 

@ = bank angle 

The input vector u is composed of the following eight inputs, 


u = fdst, dle, dte. Por Ple Pre Pa Pr}! (eqn 8.4) 


where d denotes symmetric deflections and p denotes differential deflections of the 
stabilator (st), leading edge flaps (le), trailing edge flaps (te), ailerons (a). and rudders 
(r). The svstem matrices were computed from data in (Ref. 41] for a flight condition of 
M = 0.6 and an altitude of 10,000 feet. They are shown in Table 7. 
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The outeur vector, 415, 


(eqn 8.5) 


where 


No) = normal acceleration 


aa = angle of attack 


n lateral acceleration 


v 


D. F/A-18A AUGMENTED LINEARIZED DYNAMIC MODEL 

Rojek [Ref 39] modeled the F/A-I8A_ aircraft dynamics augmented with 
actuator,sensor and feedback filter dynamics for the Auto Flap Up flight mode in 
discrete form. 

Figures 8.3 and 8.4 depict the linearized longitudinal and lateral-directional 
control law model coded in [Ref: 39]. In the figures, F denotes the gain scheduled 
function values and P denotes the presence of a filter. Constant gains are denoted by 
numerical values. Non-linear components of the full order control law model noted in 
(Ref. 41] were either ignored or linearized as foliows. 


a. Non-linear dynamucs of the control laws such as position linuters, rate limiters, 
dead band regions, and inertial couplings were ignored. 


b. Stick and rudder dvnamics were ignored. 

c. A constant sample rate was assumed and therefore pre-aliasing filters were not 
included in the model. For this thesis, an eighty hertz sampling rate was 
invoked. 

d. Structural notch filters were ignored as structural modes were not modeled. 

e. «As the model was designed to simulate cruise flight conditions, faders which 
smooth out discontinuities during system) start up and other transitional phases 
Were [UNoOrce 

The control law model provides gain scheduling as noted in paragraph VIII.B. 
Lead-lag filterrng is also provided to shape the feedback responses and to ensure 
acceptable phase and gain margins within the feedback paths. [Ref. 39] presents 
detailed information with regard to descretization of the continuous actuator, sensor. 
and control filter models shown in [Ref. 41]. 

[Ref. 39] formulated the discrete F;A-I8A dynamic model as a fifty-five 
augmented state variable system. This particular state variable form: modeled the 


discrete pilot commands as the input vector, u(k). 
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TABLE 7 
F A-ISA SYSTEM MATRICES FOR M = 0.6, ALT = 10,000 FT. 





0. 0 0 0 0 0 0 0 
Bees 919.430 749.0 0 0 0 ( ( 
15.60 -1.609 1.4999 96 ( ( 0 6 

( 6 0 ( ( 0 Qo 0 

( ( 0 -6.930 ( 0  -2.915 34.909 

0 0 ( -.3960 0 $350  -.8960 73.360 

( ( 0 11.860 0 13.060 13.140 44 

( 6 0 0 ( 0 0 ( 

G 

0 0 1.0 0 0 0 0 0 
0728  -Lld -5.749 0 ( 0 0 ( 

0 00154. 0 0 0 6 ( 0 

0 ( 0 ( 0 1.0 ( ( 

0 0 0 6 O. ( 1.0 Q- 

0 0 ( 0 -.2450 .77720 02850 ~—-.015 





u(k) = {Px(k) py(K) p,(k)} # (eqn 8.6) 


where 
p,(k) = pitch stick command 
p(k) = lateral stick command 


p(k) = directional rudder command 


§3 


Modeling in this wav incorporates both the control surface deflection commands 
and feedback filter states within the plant matrix, A. In that the control surface 
deflection commands are the desired system inputs. u, and the discrete pilot commands 
are the desired reference coniumands. 6(k), the dvnamuc model was assembled in a 
different manner than [Ref 39]. Equation 8.6 was reformulated as a reference 
command vector, 6(k), and the input vector, u(k), was reformulated as the ten discrete 
control surface inputs as follows. 


WU = {rStwece tleemiiemente |teeira la vce ir} | (eqn 8.7} 


where r and / denote right and left control surfaces and sz, le, te, a. and r denote 
stabilator, leading edge flap, trailing edge flap, aileron. and rudder deflections 
respectively. Additionally. Rojek provided longitudinal( LONG) and lateral (LATD) 
gain matrices which modified the equations of motion to accept individual control 
surface deflections as systems inputs. In this wavy, coupling between the longitudinal 
aircraft modes and longitudinal control surfaces, and also the lateral modes and control 
surfaces, are invoked via the gain miatrix transformation. For svmmetric control 
surface degradation where for exampie both right and left stabilators are degraded by 
an equal amount, the aircraft equations of motion remain uncoupled via the structure 
of the gain matrices (LONG.LATD). If only the rmght stabilator were degraded 
however, cross coupling of the aircraft modes would be invoked by the gain matrix 
structures. | 
Assembling the model in this form leads to a classical state variable 


representation, 


x(k +1) = Ax(k) + Bu(k) + Gy(k)6(k) (eqn 8.8) 
SK) een (eqn 8.9) 
wk) = Fy(k) + G58(k) (eqn 8.10) 


where the vectors have the following linear space dimensions, 
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The augmented output vector, v(k), 1s composed of the sensed motion variables 
and the contro! law filter states which arise from their state variable formulation. 
7 eel 
y = {q Nn, aarp ny | Xg \ 


a 


(eqn 8.12) 


By eXxarnuning equation 8.12 and equation 8.7 one observes the structure of the 
feedback gain matrix. F. Note how this structure exposes the feedback loops in the 
system in a numerical fashion. For example, F(1.1) is the static feedback gain between 
the sensed pitch rate, q, and the nght stabilator deflection conimand, rst. This physical 
interpretation of the numerical structure of the system is not evident in [Ref. 39] and 
Serves aS a revealing source of information for reconfiguration analysis. Note 
additionally that the gain matrix. F. will remain constant unless different flight 
conditions and’or regimes are assumed. Additionally, if one models control surface 
degradation via changes in the B matrix, then these constant F values will invoke 
undesired modal responses subsequent to pitot conimands via o(k). It is the intent of 
the reconfiguration technique to regain the undamaged response with the same pilot 
command inputs. This. of course, necessitates changing F bv some quantitative 
amount OF. This is exactly what we desire to determine by the solution technique 
described in Chapter VII. Let us now turn to some specific damage scenarios for 


solution. 


E. THE SYMMETRIC DEGRADATION PROBLEM 

Several types of flight contro! surface deficiencies or damage classes were 
presented in Chapter VII ranked in orders of severity. The initial type of damage class 
considered in this thesis was the svmimetric degradation of control! surface effectiveness. 
Specifically, two cases of svmmetrie degradation of the right and left stabilators were 
treated by the reconfiguration technique. Case A decreased the control effectiveness of 
both stabilators by 25%and Case B decreased the effectiveness by 50%. Since this 
type of longitudinal symmetric damage does not invoke lateral coupling. the perturbed 
eigenstructure onlv involves the longitudinal dynamics. This provides a suitable test 
case for the initial attempt at reconfiguration. 

As is the case in all eigenstructure synthesis scenarios, one must become familiar 


with the structure of the svstem prior to any design execution. In all of the damaged 


cases examined for this thesis, the design requirement was to regain the undamaged 
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longitudinal response to a 1.0 inch, 3.0 sec pitch up stick command. Figure §.5 depicts 
the undamaged longitudinal responses to such an input. Table § depicts the closed 
loop eigenvalues of the full-order svstem. Note that a slaw eigenspaceretsmi@iee2- 
plane eigenvalue of greater than or equal to 0.9535. A slow design eigenspace was 
therefore defined as z 2 0.9535 and reconfiguration synthesis for the symmetric 
degradation cases was performed within this eighteenth order eigenspace. Table 9 
depicts the eigenvectors of the aircraft eigenspace. Tables 3 and 9eame therefore the 
design closed loop eigenvalues and right eigenvectors for this Case VI Output 
Feedback problem. In all subsequent tables, the aircraft eigenvectors are normalized 
with respect to the largest real magnitude of the aircraft elements. Table 10 shows the 
undamaged feedback gain matrix, F. Note that the function gains and filter transfer 
functions depicted in Figures 8.2 and 8.3 are transformed via the modeling technique 
noted in paragraph VIII.D into the elemental values of the feedback matrix. F. in 
Table 10. Each colunin represents the feedback gain values from the sensed variable to 
the respective control surface. For example the static gain value between pitch rate. q. 
and the right stabilator, rst. is 0.214. | 

Table 11 numerically depicts the euclidean and @-norms of the right and left null 
vectors, £-; and Ep. of the eighteen slow modes. The residual sums, RES, and RES,, are 
the sums of the eighteen individual euclidean norms. Note that RES, is significantly 
less than RES, and that the primary modal contributors to RES, are the short period 
and phugoid modes. It 1s interesting to note that at the outset, the bad actors with 
respect to the left null spaces are longitudinal in nature. 

Upon examining Table 11. one would initially establish a collective numerical 
threshold on the null space membership criteria of 0.074838 and 3.3046 respectively. A 
significant unknown, however.is the magnitude of the conservative nature of the 
euclidean norm. A collective measure of null space residuals may indeed be too harsh 
a criterion on eigenvector acceptance. Additionally, as noted previously, eigenvector 
orientation 1S a significant input with regard to acceptance’criteria when analyzing such 
a high order system. For example. a particular eigenvector may satisfy a null space 
requirement but have undesired modal orientation. An undesired orientation results in 
responses Which may or may not be acceptable. The design problem therefore becomes 
two fold. Null space constraints and proper orientation of the right eigenvector must 
simultaneously occur to ensure full performance recovery. Performance recovery could 


be accomplished in several ways. One procedure would be to augment the current 
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objective function to include a performance recovery factor. One may define such a 
factor as a norm of the difference between the desired right eigenvector, x, and the 
RIGIME CIS eM CetCr, Kiam OX: which results subsequent to reorienting the left eigenvector. 


In this way, the augmented objective function becomes, 
OBS aug = Alb i Ox:|]5 (eqn 8.13) 


By performing a minimization of equation 8.13. one would drive towards the. 
undamaged performance, x;, and the respective undamaged eigenvalue location, i 
Another procedure which would be significantly less expensive from a computational 
standpoint would involve comparing the optimized right eigenvector modes with those 
which are known to give satisfactory performance but possibly unsatisfactory 
eigenvalue placement. In other words. subsequent to minimizing a norm of the left 
null vector, En, examine the reoriented right eigenvectors for structures which impede 
performance recoverv. For those which impede recovery, drive the designed right 
eigenvectors to the proper orientation. This will possibly result in penalties with regard 
to invoking an eigenvalue location but will enhance the system performance. In this 
way, the designer must trade between modal performance recovery (x;) and speed of 
transient response (ee One must therefore observe the vectors individually with 
regard to both residual measurement and orientation before making prudent 
judgements on the acceptability of the eigenvector. 
1. Case A 

Symmetric degradation of the stabilators was simulated by modifving the 
appropriate elements of the gain matrices to reflect a 25% loss in control effectiveness. 
Figures 8.6 and 8.7 depict the damaged pitch attitude and pitch rate responses. 
Although a relatively benign perturbation to the undamaged response, this case served 
a valuable role in software debug of RECONF, ERSPAGE EVSPAGE andeinaee 
modifications to the [Ref. 39] code. Table 12 depicts the damaged eigenvalues for Case 
A. Table 13 shows the resulting perturbed aircraft eigemstructure for Case eee 
primary eigenstructure perturbation for Case A is noted in the slower phugoid (h = 
-0.4123) and the short period modes. For the slower phugoid mode, the eigenvalue 
shifted to the right by 19.4% with no significant change in the eigenvector. The 
perturbed short period mode became less daniped and more oscillator as the real part 
of the eigenvalue moved to the right by 16.7% and up the imaginary axis by 9.4%. 


The cumutative result is a lag in both the pitch attitude and pitch rate responses. 
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The initial test performed on the desired eigenstructure was the night null 
Space constraint. Table 14 depicts the null space residtiiswion @ase ye ole tae 
RES. is 0.036547 for this case which compares favorably with that of the undamaged 
(or nominal) value. Therefore the desired right eigenvectors were considered members 
of the Case A perturbed right null spaces and no reorientation was considered 
necessary. When the left eigenvectors were tested for left null space membership, a 


value of RES; = 125.11 was obtained. When compared with a value of 3.3046, it was 
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decided that reorienting the left eigenvectors was required. In particular, note that the 
source of left residual error was predonunantly due to the short period, phugoid, and 
two of the filter modes. PLID and Y3D. PI1D is a longitudinal filter which sends 
angle of attack data to the collective flap commands. The Y3D is a lateral feedback 
filter which smooths yaw and roll rate feedback to the synchronous rudder commands. 
Note that the lateral aircraft modes satisfy both right and left perturbed null space 
constraints as nught be expected since the degradation is in the longitudinal surfaces 
only. Note additionally that the three modes at the bottom of Table 14 have true zero 
left residuals just as in the undamaged case. This depicts the dependence of the 
residual on the open loop parameters (A.B.C) and show that for some eigenvalues, the 
null space constraints will always be satisfied regardless of the orientation of the 
eigenvector. The converse 1s also true, SOmmeveienvalues) lial ayS gmvOkenaumul 
space residual. The Key is to orient their vectorssas close’as possible to, tiesdesines 


orientation while nuninuzing the residual error. 
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Figure 8.6 Case A Damaged Pitch Attitude Response. 
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Maininuzation of the euclidean norm of the left null vector, En: for each of 
these four modes was performed in the following wav. All fifty-five elements of the left 
eigenvector were allowed to vary +0.001 of their initial value to provide freedom to 
rotate as close as possible to the null space invoked by the fixed eigenvalue. ADS was 
then used to mininuize || Ell individually for each of the four modes. Upon completion 
of the mininuzation procedure. final values of ieee (0Foe and RES 37.117 
were obtained. Note that the right residual sum: maintained an acceptable value during 
muninuzation of the left null vector norms. This is demonstrative of the higher 
dimension of the mght null space.(d(E.) = p = 45) as compared with that of the left 
null space (d(E,) = q = 37). Subsequent to the minimization, the fast eigenspace was 
preserved by inserting the undamaged elements 9-43,45, and 47 into the 37 fast modes 
of the right eigenvector matrix. The reconfigured feedback gains were then computed 
and responses were plotted. In essence. this is a reduced order design method and 
proved successful for the symmetric degradation cases. 

Maple 15 shows the reconfigured feedback gains for Case A. Note that the 
reconfigured gains invoke deflection commands to the leading and trailing edge flaps 

ia pitch rate, normal acceleration, and angle of attack feedback paths. Additionally, 
feedback gains are now present in the angle of attack to stabilator feedback path. 
Note that these paths are not present in the longitudinal control model of Figure 8.3. 
This solution therefore would require a modification to the aircraft control system. 
Additionally there are feedback gains between selected filter states and the 
leading. trailing edge surfaces. These particular filter states correspond to the pitch rate 
to collective stabilator. normal acceleration to collective stabilator, pitch stick to 
collective stabilator, and angle of attack to collective leading flap feedback filters. This 
longitudinal reconfiguration was implicitiy invoked by the design technique described 
above. Table 16 depicts the reconfigured eigenstructure for Case A. Note the slower 
phugoid (A = -0.4616) has been shifted to 90.24% of the undamaged value which is a 
9.59% improvement over the damaged eigenvalue location. Also noteworthy is the 
weak niodal coupling to forward and vertical velocity in the spiral mode. Simulartly. 
there is weak coupling to side velocity in the reconfigured short period. Figures 8.8 
amd 8.9 show the reconfigured pitch attitude and pitch rate responses. Note that the 
undamaged responses were not exactly regained, but the reconfigured responses show 
positive signs toward performance recovery. This is indicative of satisfying the nult 


space constraints while not invoking a constraint on the orientation of the right 
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eigenvector. Although the reconfigured gains provide positive steps toward regaining 

the undamaged response, full performance recovery was not obtained due to the 

undesirable orientation of the longitudinal 
2. Case B 


Figures 8.10 and 8.11 show the damaged longitudinal responses for the 50% 


right eigenvectors. 


symmetric degradation case. Tables 17 and 18 depict the perturbed full order and 


aircraft elgenstructures respectively. Table 19 shows the null space residuals. Note 
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TABLE 14 
CASE A NULL SPACE RESIDUES 
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that the bad actors are again the short period, fast phugoid, and the same filter modes 
as Case A. Additionally note the doubling of the residual sums from Case A to Case 
B. The design procedure noted above for Case A was repeated for this case. Tables 20 
and 21 show the reconfigured feedback gains and aircraft eigenstructure for Case B. 
Figures 8.12 and 8.13 show the reconfigured responses. 

The lack of full performance recovery is more clearly demonstrated in tiese 
reconfigured responses. Note that although the reconfigured phugoid (A = -0.3699) 
eigenvalue is a 26.25% improvement over the damaged eigenvalue position (A = 
-0.293), it is 27.73% slower than the undamaged value of -0.511. The reconfigured 
short period eigenvalue (A = -1.505 2+ 3.013) has not been shifted and has less modal 
coupling to vertical velocity (-1.0000 2j0.8656) than the undamaged short period 
modes (-1.0000 +41.17738). The response curves also indicate that although the null 
space constraints have been met, performance has not been fully recovered due. in 


part, to the reorientation of the phugoid and short period right eigenvectors. 
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The design procedure for Case B was therefore modified to enhance 
performance recovery in the following way. Inspection of the left residual null vector. 
€,,, for the short period, phugoid, and P11D filter modes revealed that the residuals 
were predonunantly due to the real part of the null vector. In order to reduce the 
norm of the residuals, the real parts of fast elements (9-43,45,47) were therefore 
unrestricted during the minimization. In this way the elements of the slow left 
eigenvector Which corresponded to the faster actuator and sensor modes, were allowed 


to assuine the dominant role in the orientation. Upon completion of this minimization, 
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Figure 8.8. Case A Reconfigured Pitch Attitude Response. 
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final values of RES, = 0.07127 and RES; = 72.7 were obtained. Again note the right 
residual sum, RES_, indicates that the new right eigenvectors remain in the allowable 
right null space. The fast eigenspace was inserted into the thirty-seven fast modes in a 
sinular fashion as before and the reconfigured gains were recomputed. 

The resulting eigenstructure revealed that performance had improved 
somewhat but additional recoverv was required. The fast phugoid, short period, and 
P9D filter modes exhibited short falls when compared to the undamaged modal 
structure. As noted previously, a procedure at this point would be to compare the 
present right eigenvectors with those which give rise to performance recovery but 
perhaps a penalty in the eigenvalue location. One such design was performed in the 
following fashion. By modifving the objective function during the ADS minimization 
to represent the absolute value of the sum of the components of the left null vector, €;,, 
a different set of right ergenvectors was computed. As these particular eigenvectors 
gave rise to. a RES; = 199.5 and RES. = 0.0066, the resulting closed loop eigenvalues 
Were not exactly invoked due to the value of RES; . However, the response of the 
system exhibited better performance recovery. Upon comparing the slow phugoid, 
short period, and P9D filter modal structures with these better performing structures, 
noted differences in the structure Were evident. Therefore, the right eigenvector modes 
for the slow phugoid. short period, and P9D filter were replaced with thewbernen 
performing vectors which gave rise to better performance recovery. The new 
reconfigured gains and aircraft elgenstructure are shemm im fables 22 and 23s 
responses are shown in Figures 8.14 and 8.15. Note the shift of the phugoid to 
-0.43006 and the modal structure of the short period. The slow phugoid has been 
shifted to $4.1% of the undamaged value vice 72.4% in the first Case B design. This 1s 
a 26.8%) increase over the damaged slow phugoid location vice a 15.1% mecrease in the 
first design. Note the improved responses in Figures 8.14 and 8.15. 

This particular method of performance recovery is not to be taken as a 
standard by anv means. It is simply one which was successful for the design problem 
at hand. Further research would entail developing a more systematic procedure for 
recovering desired performance. For example, if one were to simply insert the 
undamaged modal structures for the slow phugoid, short period, and P9D filter, 
performance would improve but at the expense of the slow eigenvalue locations. 

In sunumary, one converged on an allowable eigenvector set which will invoke 


eigenvalue locations via the feedback gain equation but lacks full performance recovery 
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in the short period and slow phugoid modes. Performance recovery was obtained by 
coniparing modal short falls with a right eigenvector set which was known to give rise 
to better performance recovery and then inserting the better performing modal 


structures. Feedback gains were then recomputed and the responses improved. 


F. THE ASYMMETRIC DEGRADATION PROBLEM 

Asymmetric stabilator degradation was sinwulated by linearly decreasing onlv the 
right stabilator control effectiveness via appropriate modification of the gain matrix. 
Tables 24 and 25 show the perturbed full order eigenvalues and aircraft eigenstructure 
respectively. The predominant change in the location of the eigenvalues occur in the 
slower phugoid (A = - 0.464) and short period modes which is the same pattern as 
Case A. The significant difference however between Case C and the synimetric cases 
lie in the eigenvectors of the aircraft modes. Note the niodal cross coupling for all the 
aircraft modes in Table 25. The significant cross coupling terms are noted as the roll 
mode coupling to vertical velocity, the short period coupling to side velocity, the spiral 
mode coupling to forward velocity, and dutch roll niode coupling to vertical velocity. 
Figures S.14 through 8.17 show the resulting damaged responses to the 1.0 in 3.0 sec 
longitudinal command. The longitudinal responses are rather benign, however the 
resulting undesired bank angle and vaw rate responses are clearly depicted. This bank 
angle and vaw rate coupling was of course not present for the symmetric degradation 
cases. . 

A solution method posed for this problem involves a superposition technique. 
Since the 25% symmetric case has been solved, one already has computed the gains 
which reconfigure such a system. A superposition technique would allow one to use 
the portion of these gains which would symmetrically balance the asymmetric control 
deficiency. Once the aircraft has regained its undamaged response, these balancing 
gains would then be removed and the gain values would be reset to their unperturbed 
values. The decision as to whether the aircraft had regained its undamaged 
longitudinal structure could then be based on the presence of roll or yaw. If one used, 
for example, bank angle sensing as decision criteria, one in effect has designed a roll 
detection reconfiguration controller. This type of controller was used as a solution 
technique. Note that this technique is actually a digital switch which is evident upon 
examining the reconfigured responses in Figures 8.16 through 8.19. A system 


advantage of such a controller night be that one would be required to store symmetric 
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reconfiguration gains only. Asymmetric reconfiguration could then be invoked by a 
roll detection switch. Figures 8.16 through 8.17 depict the reconfigured responses 
subsequent to such a reconfiguration technique. Table 24 shows the reconfigured gains 
which are invoked during the time the aircraft 1s experiencing unacceptable bank 
angles. Note that the bank angle response, although oscillatory, exhibits far less 
coupling. The vaw rate response 1s also oscillatory and has decreased in amplitude. 
Additional research would involve investigating the origin of the oscillation and 
perform a smoothing of the responses. The important item here is that the technique 
exhibits successful regaining of the undamaged bank angle response. One would then 
be able to solve several asymmetric problems using the corresponding symmetric 


solutions. 
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TABLE 17 
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Figure 8.12 Case B Reconfigured Pitch Attitude Response. 
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Ble 





6.0 


TABLE 22 


PERFORMANCE REGOW ER Pee ODAG Gals FOR GG. ser 
De els 


uenzolqae.© leave 
NW 
44 


ms 


=< 
Meo Mt, 


DOACACA CAMA 
af SOE iy 
Soe ae Dol 


Nn Awe PAnTrrn a 
aa ea OEE 


POATAT A 
44 
eqn tH 


+> 


= rOnwn > 
Timm a4 le 


COG eae Ree 


Sle 
AA b 


() 
0.000 


too tt resol © 
S 


SO 
Ot oeee 


SS Of 


‘ 
oS 

. ‘ 

So 


Saintes 
( 
= 


DDC a rt pe pes 
BE [GSD {BPs 


ey, 
= 
‘epmenesivsleniesiasies usleniesian| TUTTI ICT IT MMMMMMAMMaMhhH MMMmMmMmhmomn™ 
Cr 


aS 
aS 


— 
. 
— 


4 —C) +4 
a 


‘ ‘ 
SSS aS 


qv ivi 


SO SEH PSS 


te) teecieete 


0.000 
O.QQ00E + 00 
0.000E + 00 
0.000E + OO 
0.QO00E + 00 
0.000E + 00 
().OOOE + 00 
ae +00 


anal 


317E-Q 
0.31SE-0 


Z 
oN 


SOS SO9S9S555¢ 
tyr 


‘ 
-_~_—~ 


I~1C000 L. LL 
OS Sa 


pm pe pene, jp 


— 
— 


OO eS 


Z5ot++++4+++4+ 
SLQSYD 


CC Coats, fie 


= Cni~}Or 
MMM MMmMMMrimmnmm 


Ss 


dM Q 
OO () 
0.QOOE + 00 
0).QOO0E + 00 
0.000E + 00 
0.0008 U0 
O.QQO0E + OO 
O.16s5be-2 
0.163E+02 


~—/ 


+++ 


—_—— 
re 


een: 
on 
a) 


ee ae 
= 


CUTTY 
Saas 
Ie 


= 
S 
(11 
++ 


0.000E + 00 
).000E + 00 
C8 


0.O00E + 00 
0.Q000E + 00 
OOODE +00 
O-000E + OO 


0.Q00E + 00 
-0.856E-02 
-0.8560E-02 

Ci2 

CROs == 00) 

0.QQ00E + 00 

0.QO0E + 00 

0.000E + QO 

0.Q00E + 00 

0.Q00E + 00 

0.Q00E + 00 

0.QQ0Q0E + 00 

OR OLO C1 Se mel) 

Q.O000E + 00 


120 


‘ (ys 
cx (aap [en eam TO ae 


4 
md 
~— 


Oe pam 


DOMMNNNN™ DOOCI Dior Foto 


(ap LR [EE 


P|) TSP) 


Pee eile 
an am 


DOD0D 


0 


( () 
OOE + 00 
O.Q00E + 00 

C9 


0.Q000E + 00 
O.000E + 00 
0 000 00 
() OOOE + OO 
Q.QO0E + 00 
0.QQ00E + 00 
O.000E + 00 
O.000E + 00 
-() 490E-0? 

-).494E-02 


eslusiczicziaziucleaicsbumevienivciozesiusicsicsigzies MMOMMMMMintnhth 


oe 


SOOVUMUWLE PDOs vv wun 
i] 
eases 


R 
0.000E + 00 
0).000E + 00 
O.UGOE 00 
).QOUE +00 
0.C00E + OO 
OO0E Up 
0). OOOE + 90 


O.QO00E + 00 
Q.QOQ00E + 00 
0.0001 = 00) 
O.000E + 00 


9) 


-) 
a) 
i 

& 


S 
Ssleslesiezieziesiczigvics 
S 

Sos 


(CAC — a 
‘ 
am 


SSERDRMOMS 


Se——bLO 


DOOSOSSOOS 
= 


)0 
OO 
0.000E + 00 

ee 
0.000E + 00 
0.Q00E + OU 
O.O00E + 00 
O.Q00E + 00 
O:000E Sue 
0.QQ00E + 00 
Q.QOUE 400 
0.QO0E + 00 
0.Q00E + 00 
0.Q00E + 00 


OOO 





Spiral 
= -0.0029 


0.0002 


(). OOOO 
1.0000 


Roll 


A= -2.8797 


0.0000 
0 


0.0000 
0.0000 
0.0000 


0) .QO00J 


0.0000J 


0.00005 
OOOOI 
0.0000J 
Q.Q000J 
0.0000J 
0.0000J 


0.0000J 
Q.QO000J 


7) 


Fer. tod 


3. S60J 
0.008 2J 


0000] 
0.0000J 
0.0000J 
0.0000J 


eel ia 23 
oe PER PORMTANCE RECOVERY AIRCRAFT EIGENSTRUCTURE 


Phugoid 
h=-0.0182 + 0.0000J 


- 1.0000 


0.0490 


0.0000 


0.0000J 
0.0€ 


0).0000J 


Dutch Roll 
==|.S682-Z27oloe) 


0.0000 


0.00003 


().0000J 


Pl 


Phugotd 
d. = -0.4301 + 0.0000J 


0.0000 
0.0000 


Dutch Roll 
4 =-1.8682 + 2.6152] 


0.0000 


-0).0072 


0.0000J 


0.00003 
0.0000] 





28.0 30.0 


rea 0, 


Wea 22.0) eet.) 
il 


16.0 


12.0) 


| SAGs) DING 
14.0 


10.0 


eau 


0.0 


LEGEND 
0 =UNDAMAGED PITCH ATT 
x=50% SYM DAMAGED PITCH ATT 
°= RECONFIGURED PITCH ATT 





0.0 1.0 2.0 3.0 4.0 5.0 6.0 
VBE SPR ON OS) 


Figure 8.14 Case B Performance Recovery Pitch Attitude Response. 
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IX. CONCLUSIONS AND RECOMMENDATIONS 


Applications of eigenstructure assignment io design of robust decoupling and 
reconfiguring conirollers has been shown to be an alternative tool for the control 
system designer. A level of sophistication over conventional design techniques is 
required due to the computational problems which arise from high order svstems. 
Specifically, the majority of the computational! complexities arise from the vast degrees 
of ireedom for eigenvector orientation available in hvperspace. As the designer must 
clearly be aware of the modal structure of the system at hand, the technique is not to 
be envisioned as a black box design algorithm. The designer must become an active 
participant during all steps of the design. Further research is recommended in the 
following areas: 


a. Further investigation into obtaining performance recovery via modified 
obviective functions for the reconfiguring controller problem 1s Warranted. 


b. Developing more efficient optmization schemes for convergence to reoriented 
eigenvectors. [This will allow the researcher to more actively engage in the studv 
of the theoretical aspects of eigenstructure assignment bv relieving the burden 
of computational time required Tor such convergence. 

c. Additional research into analvzing the solution to the asymmetric degradation 
problem is required for refinement of the technique. Research objectives 
associated with this ivpe of damage would also involve modeling the cross 
coupling of stabilitv and control derivatives for several coupling scenarios. 

d. Application cf eigenstructure assignment to design of robust observers and 
reconfiguring damaged observers 1s a natural extension of the work reported in 
Gas chests. 

In summary. applications of eigenstructure assignment to damaged controllers 
has been shown to provide solutions to a specific class of aircraft damage. Solution 
techniques to the asymmetric and symmetric degradation problems must be further 
refined before progressing to the combined actuator, sensor. control surface 


degradation scenarios. 
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APPENDIX B 
CONSTRAINTS ON EIGENSTRUCTURE SPECIFICATION 


In order to show the constraints on the specification of the closed loop 


eigenstructure, rewrite equation 3.60 in the following way, 
BFC = XAX7! a (eqn B.1) 
Post multiplying equation B.1 by X yields, 
BRGX — NASA (eqnuB 2) 
Now let us define an ‘n xX n’ transformation matrix. Q’! [Ref. 23], such that B 1s 


transformed into a matrix with the ‘“mxm7 identity in the first “m’ rows and an ‘n-m x 


m’ null matrix in the bottom ‘n - m’ rows, 


oF BR Zip (eqn B.3) 
OE tle 25 1B (eqn B.4) 
® 
—- ~:! 
Inf = Q'B (eqn B.5) 
@ 


Further, use the transformation matrix Q to defmerthe wfollowime sim arn 


transformations. 


CQO= CO (eqn B.6) 


Olas (eqn B.7) 


qtag = AQ (eqn B.S) 
Pre multiplving equation B.2 by om yields, 
Oo REGEX = Geet - © 4X (eqn B.9) 


Noting that Q-l, results in the lead identity matrix discussed previously and 


substituting the similarity form of X vields, 
| PIEGOX’ = O1XA -@ AOx® (eqn B.10) 


D 
Further substituting the similarity forms for C.X, and A into equation B.10 vields 


the simularity form of equation B.2, 


(1 VECOx9 = x04. A0x0 (eqn B.11) 
( 
(o 
In order to simplifv the analvsis, let us remove the superscript notation for the 
simularity transformations from equation B.11 . Equation B.11 is then partitioned into 


upper and lower blocks. 


The upper half left hand block of equation B.11 becomes, 


CO = eer AY, - A xX 


mxn*nx/ (eqn B.12) 


where the subscripts denote the row and column dimensions of the respective matrices. 


Solving for F from equation B.12 yields an exact solution for F, 
ai eump Ave AN (CN ay)” (eqn B.13) 
The lower block of equation B.11 vields the following equation, 


ee em en x! (eqn B.14) 


Equation B.14 reveals that there are ‘n - m’ equations with ‘n’ unknowns for each 
closed loop eigenvalue 4:. Each of the ‘I’ system of equations is therefore 
underspecified and one can only specify “m’ elements of each column of X,,,;. This is 
of course the classic result of Srinathkumar [Ref. 11} which is stated in Chapter II. 
Equation B.13 is the result noted in the work by Srinathkumar [Ref. 11] and Sobel and 
Shapiro [Ref. 25]. The expressions presented in Table I of Chapter III as noted 
previously are least square solutions for the feedback gains. Note that if one desires to 
invoke ‘n’ eigenvalues and nn elements of the eisenveetor in “equagion) bay eien 
equation B.13 also becomes a least square solution due to CX,,; becoming non 


square. 
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FOR: I. MINIMIZING THE CONDITICN NO. OF THE EIGENVECTOR 
MATRIX. (PRESENTLY NOT WORKING) 
MINIMIZING THE SINGULAR VALLE OF TRE RETURN 
DIFFERENCE MATRIX WiTH THE CONSTRAINTS OF A DE- 
SIRED EIGENSTRUCTURE. 


ts 


COR V.F. GAVITO 
APRIL 1936 


oo a a ga Nn nO a nN an a ao FH 4A 00 0 


Ce Ot ad oe me ad te ad eet net ad Ee ed ed eee OG a od 4 eG ee 


C DEFINITIONS 
C 


i it eee ile kl telnet eRe tat hel Rel tte DR keke ta Rol Motel i Rekakekata Rat aielatol ate tele Raa te natal 


A = PLANT MATRIX {(N X N) 
AT = A TRANSPCSE {N X N) 
B = CONTROL MATRIX (N X M) 
BDEL = DAMAGED CONTROL MAT (N X M) 

PUT MATRIX CL Na 


C = OUT 

D = FEED FORWARD MATRIX CLXM) 
EIS = O-LOCP ZIGENVALUES (N X 1) COMPLEX VECTOR 

Z=IGO = Q-LOCP EIGENVALUES (NX 1) (REAL PART) 

EIGOI = 0-LOOP i (N X I) CIMAGINARY PART) 

EIGOD = DESIRED C-LOOP EIGENVALUES (NX 1) COMPLEX VECT 
EIGOO = DESIGN C-LOOP EIGENVALUES sg i ts 
EIGREC = C-LOOP SISENVALJES CF RECONFIGURED SYSTEM 
SLAMBDA = <LAMDHA*I-A  B> 

RANK? = R<SLAMBCDA> 


RANK = R<C> 

VD = DESIRED BASE EIGENVECTORS (N X N) 

V = DESIGNED 2ASE EIGENVECTORS (N X N) 

YVRECON = EIGENVECTCRS (NORMALIZED) OF RECONFIGURED SYSTEM 
CY = <C>¥<V> {L xX N) 

Ee? " CeV FOR EACH EIGENVALUE (LX N) 

WO1.25354+5 = WORK COLUMN VECTCRS (1 X N) 

WM1.2-3+4-5+6 = WORK MATRICES (N XN) 


Peco osi0enleso= |) 2 : 
WK1-2,2.4.5 = WORK AREAS FOR EIGRF 
Ww = FREQUENCY (RAD/SEC) 
WP = ” " FOR DISSPLA CCMPATIBILITY 
K = I (FOR FORCING EQUALITY RELATION FOR 
UNCONTROLLABLE EIGENVALUES ) 
F = FEEDBACK GAIN MATRIX (MX L) 
FC = COMPLEX FEEDBACK GAIN MATRIX (M X L) 
FDEL = RECONFIGURED FEEDBACK GAINS (M XN) 
ABF = C-LCOP MATRIX A * BF 
ICTR = CONTROLLABILITY FLAG FOR O-LOOGP EIGENVALUES 
IFEED = FEEDBACK FLAG 
1 = FULL STATE FEEDBACK 


aanananaanoaananaanaaaeaeanaeaaNgaeaeaanaeaanaentaenaeaaananclcuUdndwaeanaemcmdnaeaadanna 
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Cc 2 2 OUTPUT FEEDBACK 

C 3 3 OUTPUT FEEDBACK PLUS FEED FGRWARO 

G SF a SINGULAR VALUE VECTSR FOR FEEDBACK GAINS 

Cc 1 3 SINGULAR VALUE VECTOR 1 

Cc S2 2 SINGULAR VALUE VECTOR 2 

Cc SVM = MIN SINGULAR VALUE OF I + FG 

C SVM1l = MIN SINGULAR VALUE OF I * GF 

c SVMAX = MAX ue = " fT + FG 

Cc SVMAX1 = " “ > “So * Gr 

Cc SVMP = MAX vg 3 * FG FOR DISSPLA COMPAT 
C SMREC = MIN S.V. CF RECONFIGURED SYSTEM (A SINGLE VALUE) 
Cc WRED = FREQUENCY OF SMREC 

Cc UI.VI 3 ORTHOSONAL MATRICES COMPUTED SY CSVO FOR SvVO OF 
Cc RETURN OIFFERENCE MATRIX 

Cc UIF.-VIF = ORTHOGCNAL MATRICES COMPUTED BY LSVOF FOR SVO OF 
C FESCE4CK GAIN MATRIX 

C Z2eZlsll123-24+25 = COMPLEX WORK AREAS 

Cc UTSLAM 3 U**TRANSPOSE OF SVO OF SLAMBDA 

C VRT = UseweTRANSPOSE OF EIGENVECTOR MATRIX 

c 

& 

Cc 

C 

(ts 

Cc 


‘4 1 $4 4 te Et EO Od Oe te Od Od Od Od Ot ME Se et eh te tk OO oe OO tg Oe Ot te ttt tt 


DIMENSION STATEMENTS 


Le ene ee ie eee een Boe nee eee elle 


IMPLICIT REAL*“8(A-H.P=-2) 
REAL*S AC(10.10).8(010.10).C(10-10)-E1GO(290),EIGV(10.10) -EIGOI(2O), 
1P(10-10)-FSAVE(10.10).B0ELC10.10)-FD0ELC10-10).WM8(10.10). 
CWO1LC1LO) -WOSC1O)-WCGC1LO)-WOSCIO).FCIO.10)-CV(IO.10).WM9(10.10)-. 
SUNITYC 10,10) -WC2000).SVM1 (2000). SVMAXI(2000)-WM10010.10), 
GWM5(010-10)-4M5(010-10)-UTSLAM(10.10)-VRTC10-10)-WM11(10.10). 
5WKO(050).ABFDEL(10-10)-0010-10).WAREACC1O-10)-WMI2O(10.10).- 
STEIGR (10), TEIGICIO) TEIGVR(10-10)+-TEZGVICLO.10)-ATC10-10)+-WKI(20), 
7WM6010.10)-WM7(010+10)-SVM(2000) -EIGVO(10.10).S3010)+SVMAX(20090) 
DIMENSION COM(10)-.TITLE(20)-WP(2000)-SVMP (7000) 
COMPLEX*160°10.10)-c1010) -coCl0-10).202010).04610-10)-c5010)>. 
LEIGC10).VC610-10)-ETGO(10).-E1G00(10)-E(10.10).VvO(10.10). 
@ UNITYC(10-10)-CN-VIFCIO.10)-EIGREC(10)-VRECON(10.10), 
> FCCIO< 109 
REAL“8 WM1010-.10)-WK1(20)-WK4(0200)-ABF(10-10)-SLAMDA(20-20). 
LAMOCLO.LO}-SICLOV-WKCCO)-VRO10-10).-52010)-WO2C10)-WKAREA(CSO). 
CWMG4 (10.10). WAREAIL(C50). VSAVEC10.10)-VRS(10-10).SF(10)-UlF (10-10) 
INTEGER [WKC10).ICTRC1O).N.M.L.IFEED 
Cc 
(Co 1 94 56 00 Ot Om dE Oe Ot et te 8 
Cc 
Cc INITIALIZE ALL MATRICES 
Cc 
meee ee eee eee eee eee Eee ERE SSeS eee ERE LEC eee EPEC EE LEVEES See Eee EET 
Cc 
OO 1 i = 1519 


IWKCI) = 0 
IcTR(I) = 0 
WC1CI) 3 9.00 


WCOCIT) = 0.00 
WCSCi) = 0.00 
WO4(T) = 0.00 
WOS(CI) = 0.00 
S1¢CI) 2 0.00 
SoCr) 3 0.00 


S3(1) = 0.00 
TEIGR(I) = 0.00 
TEIGIC]) =» 0.006 


COM(I) = 9.00 
00 2 J 31-10 
ACI.J) = 0.00 
‘BC I+J) = 0.00 
C(Crle.J) = 0.00 
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oe 8) 


8 


CONTIN 


CONTIN 


CONTIN 


ONT IN 


CONTIN 
CCNTI 


O(1.J) = 0.90 
F(l.J) = 0.98 
CvVCl.J5) 2 0-598 
SUPREATI,5) = O05 
UTSUAMEI.J) = c¥a0 


WR@Oile.) = 9. 


uN 


(0.00.-0.59) 
VOT.5) = €3.50.0.56) 
VaCied) = 0.£3 
VESCI..) 2 (0.50.0.50) 


( 
asP(l.J) = Ome 
ATCieJ) = 0.09 
9CI.J3 = 0.96 
UNITV(T.J) = 0.593 
UNITYC(C{.J) = (0.00-.0.90) 
Wer laswd) = 5 
mMLCI.J) = C.50 
wMOET.J) = 3 
HMZCI-J) = 9 
wM6(IT.J) = 0.0 

3 

P| 


WMS(i.J) = 20 
mMS5(1-J) = 0.06 
wM7(I.J) = 3.06 
eMS(T.J) = 9.00 
eM9(i.J) 2 9.50 


aMYOCi-J) = 9.50 
AMIICIeJ) = 2.5 
Me Str.) = 9559 
we 

LE 

m5 i 2 1.8 

7m! 5 J 
SLAMDACT.J) = 0.00 
LE 

00 6 I = }.20 
aK(7) = 0.00 


“ 
. 
ts 
Oo 


WKICI) 2 9.50 
aK2(1) = 3.56 


wKE(CI) = 6.09 
OCT) = 9.50 
OIctl) = ¢.d0 


4’ 


aCAREA(T) = 0.09 


waRESi( I) = 3.50 

Us 

eo .4 202 -1st0 

Siti e OO. 90.60.59) 
23(1) = (€9.00.3.00) 
Z5(1) = (0.00-6.00) 


ExrS(rI) = (0.03.0.59) 
2600!) = (G280.5 230) 
EvSGOOCT) = (0.590.9.99) 

oO 9 J = 1-10 

ECi20) = (0.50-.0.500) 
Z(TeJ) (9.00.0.09) 
Ag I (6720.35.59) 
2407.3) = (0.00-0.50) 
ve 

NYE 

CO it I = 31,2000 
SVMAXCT) 2 0.09 
S7-(1) = 0.06 

S¥M1C1) = 0.506 
SWM2e¥1I(1T) = 0.00 

AUS = O50 

mPCi) 2 0.9 


— 
(oo 
\O 


SVMPC(I) = 0.90 
li CONT I NUE 
Cc 


C4 4 4 AO Sd 94 80 OB 88 8d 80 8 OS 


c 


[e: REAO [IN DATA 
C 
CAV RHC HEU EKN EHO 
C READ IN DUTPUT TITLE 
Cc GOTO 511 
2 REACHED. 6001 (ce 
16 FCRMAT( COAG ) 
S READ IN NO. OF STATES. NO. OF INPUTS. NO. OF OUTPUTS. TYPE FEEDBA 


READ( 1-10) N»M.L.-IFEED 
10 FORMAT(461I2) 
C READ IN A.B.C.D0 

0O co [ = 1-N 

READ(1-.-15) CACI-J)-J=1-N) 
<9 CONT TINUE 

DO 30 [I 2 1.N 

READ (1-15) (BCI-J)eJ=z1-M) 
30 CONTINUE 

DO 40 I a del 

READ(1-15) (CCI-J)eJ=1°N) 


40 CONT [NUE 
IFLIFEGD.NE sou Gero: o. 
Ae 0O 51 1 = lek 
Ul READCL- ISICOCI-J)-yelem) 
15 FORMAT(6F12.5) 
Cc READ IN DESIRED C-LOOP EIGENVALUES 


ripe BDO 4i [ = 1+N 
READCI 4GOIEIGD(I) 

42 FORMAT (CF12.5) 

41 CONTINUE 

READ IN DESIRED C * Vv 

00 463 [ = 1-N 
00 63 J 2 1-l 
READ(1-46)E( U1) 


44 FORMAT(2F12.5) 
43 CCNTINUE 
READ IN DESIRED BASE EIGENVECTORS 
DO 465 [ = 1-N 
C0 465 J = 1-N 
READ(1+4668)V0(4-1) 
46 FORMAT CCE ve ss) 


4§ CONT INUE 
MERE eee eee eRe RE RRR EEE EER REPRE RRR eee 
c 
Cc DISPLAY INPUT FOR CHECKING 
c 
C4 4 54 88 54 4 4 0 4 88 5488 88 80 Ot OSA Og SSO 
CALL FRTCMS (*CLRSCRN ‘) 
WRITEC 6-160) TITLE 
WRITE(S SOIIFEED 


Sa FORMAT(/SX."#"a4 FEZE0SACK FLAG = *- 10.’ wuun’./) 
WRITE( 6-50) 
50 FORMAT(/10X- "4" A MATRIX “uuHe, /) 


CO 70 I = l+N 
WRITE(6.60) (ACT.J)-J51.N) 
60 FORMAT(1X-6(E12.5-2X) ) 
79 CONT INUE 
WRITE (6-80) 
BO FORMAT(/10K,'444 B MATRIX wHuHe Ls) 
0O 100 [ 3 1.N 
WRITE(6-90) (BCI-J),J=e1l.™) 
20 FORMAT(C1X.58(E12.5-2X)) 
100 CONTINUE 
WRITEC6-110) 
110 FORMAT(/1OK.’ MH C MATRIX Muuwt/) 


140 


oO 120 I 2 lel 
ARITE(S. 120) (Cli eS). Ua1eN) 
129 PORMAT(IX.6(E12.5.2X)) 
133 CONTINUE 
AQIVEC6-111) 
bi FORMATC(/1OX.’«4e4 D MATRIX suse’, s) 
Barrie i = Lek 
11 Woes WRITECOeLZIDICOC Le SJ eJelem) 
ARSTE(S.150) 

153 PORMATC/S/UCX. °4eew CESTRED BASE ELGENVECTCRS FOR USE IN #4au'./ 
1190x. eT) KAUTSKY ALGCRITHM ONLY weve s/f 
= cNeeelGENVeanam: «cX+ REAL PART’. 6X e° IMAG PARh "7 ) 

bar)s!) ] 2 F.N 

ARITECS-153) 
Woe FORMAT(C7Xsi22) 

20 151 J = 1.N 

ARITE( 5-152 )V50N.95) 

roc PCRMaTCi3SK.E12.5-3X-E1S.5) 

FS) CONTINUE 

i169 FSORMAT(//,20AG) 

WRITECS.-100) 
180 FGRMAT(/10X.° +s" DESIRED C-LOOP CIGENVALUES FOR USE IN saan’ ,/ 


I 


1190X. ‘suas KAUTSKY ALGORITHM ONLY Meee e //EX 
ce EIGENVALUE’ elke “REAL PART’ «6X. IMAG PART’ ./) 
90 155 1 = 1-N 


156 PCRMATC7X- 12 .4K.E12.5¢5 
E55 CONTINUE 


CHEM EME SEEM ENE 


CASE NEUE 
Cc 
C ICENTITY MATRIX 
OO 200 f = 1-ld 
UIFClel} = 1.59 
UNITYC2.1)21,90 
UNITYCCI-I) = €1.090-9.00) 
290 8 86CCNTINUE 


c Goro" 521 

CeO E ESET EEE Ml 
Cc 

34 PECICE CN RECONFIGURATION ANALYSIS OR EIGENSTRUCTURE CESIGN 

C 

CAMO ECONO SEHD KEYES EET EEE MEME 
G are = C6eSSs 


coe ECRMAT(/5X-°¥euw ENTER “i FER RECONFIGURATION STUDIES «448° ./5K, 
1 ‘eves ENTER "2" FOR FIGENSTRUCTURE ASSIGNMENT “4° ./) 


Cc 

Cc READ(#.513 JIRECCN 

Cc TFCTPECCN.ES.23GCTS 165 

- -SOLN = 3 

. Call RECCN(A.8-C.F.L.MN- SDSL FOEL -EIGREC.-VRECON. SMREC.WREC. 


O 


1 ABFOEL) 
é GoTo 509 


CACHM MOUNTS UENCE 


c SeUGULATE OC-LOCP =< CENVALUES 
Cc 
CHEE M AEE EHEC 
Cc SAVE A SINCE ELGRF CESTROYS A 
165 oO 291 © 2 IN 
OO car J = 1eN 
MAMICI.J) = ACIS) 


201 CONTINUE 
CALL EIGRF CHM] ON-10¢0¢l1+¢2-10+0eK1- TER} 
390 205 1 2 1.-N 
Crgelay foals 
ElSOCI) = CREAL(Z1(1)) 


14] 


a9 
= 5 


EIGOICI) = OrmMaG(cl¢r)) 
CONT INUE 

WRITEC6-210) 
FORMAT(//10X.' 4484 OPEN LOOP EIGENVALUES "44 ',//3K-* HYREAL HHS. [SX 

4,’ eI MaAGuen'/) 

00 ce5° 1 2 IeN 

ARTITECS COOJEIGC(I) EIGOI(T) 
FORMATCIX.€12.$,.10K+212.5) 
CONTINUE 

RE-INITIALIZE WMI WORK MATRIX 

BO 226 I 3 I.N 

CO 226 J = I.N 

WMICI.J) 0.0 
CONTINUE 


u 


ORER CEE SEE CELSO CE CECE PERCE CeCe EC eee REECE Cece rree ree ereern s | 


Cc 
c 
& 


CrECK O=-LOOP EIGENVALUES FOR CONTROLLABILITY 


CHEM EHH 


O 3 


con 
250 


300 


1 


tt 
ts 


DO 260 [ = 1-N 
X 2 CREAL(CEIG(I)) 
IFCEIGOI(I).€Q.0.00)GOTO 22 
CALL CCNTRL(A-B-UNITYC.N-M-ICTR-EIG. 1) 
GOTO 260 

DO coil J 2 [eN 
WMICJ-J) = X*UNITY( J.J) 


CONTINUE 
DO 230 J = I.N 


WM2(JeK) © WMICJ,K) = ACJ.K) 
UTSLAM(J-K) 2 UNITY(J.K) 
CONTINUE 
CALCULATE SLAMDHA(T) 
f0 2460 J 4 1.N 
DO 240 K = 1.N 
SLAMDA(J.K) = WM2(J5-K) 
CONTINUE 
bo 250 J = [.N 
DO <S0 K = [.M 
SLAMDACJ+K*eN) = BCJS-K) 


CONTINUE 
CALCULATE RANK OF SLAMDHA 
Il = K+*N 


CALL LSVDF(SLAMDA-20.N-ITI-UTSLAM-IO.N-SI-WK. [ER ) 
IFCIER.EO.33)GOTO 2$1 
ICTR(I) = 1 
GOTO 260 
IcTrR(I) 2 0 
CONTINUE 
DISPLAY CONTROLLABILITY FLAGS FOR O-LOOP EIGENVALUES 
WRITE(6-300) 
FORMAT(//SX.'O-LOOP EIGENVALUE CONTROLLABILITY FLAG (1sY)') 
DO 310 I = [-N 
WRITE(6-320) EIGOCI) EIGOICI)-ICTRCTI) 
FORMATCIX.E10.3-IX-EL10.35-* J’ oe 1GX.12) 
CONTINUE 
DECISION FOR REINSERTING EIGENSTRUCTURE 
WRITE(6-3I2) 
FORMAT(/10X,.'*«*44 DESIRED EIGENSTRUCTURE HAS BEEN READ FROM “uue’, 


l /1OX, ‘seem DATA FILE. ENTER "I" TO CHG. NOTE: CANNOT 444°, 
= /TOX.°s448 CHG IF KAUTSKY ALGOR. WILL BE USED. ENTER *uun’, 
Bs /10X%.° 440% “2% IF YOU DESIRE TO USE FILE DATA FOR mama’, 
A /10X.'**44 MOCRE ALGOR. OR IF YOU ARE GOING TO USE wane, 
5 /TOX,'444* KAUTSKY ALGORTIHM. wuaque, 


b /) 
READ(*. 313) IEIGEN 
FORMAT(CII) 
CALL FRTCMSC’CLRSCRN °) 
IFCIEIGEN.EO.2)GOTO 352 


. 


epee Cee eee eee ee eee ee ere ee ee eee eC CeCe rrcecrcrereCLeeree creer rrrrrnr 

Cc . 

c ; INPUT DESIRED C-LOOP EIGENVALUES 

Cc 

Otte Pe Pe eee eee ee eee ere Cece cee errr eccrerirerrirercrrn, at Pee 2 8 ee 

211 WRITE(S5-S25) 

325 FORMAT(/5X.’ «ee ENTER DESIRED C-LOOP EIGENVALUES «Hae, /5X, 

1 ‘wee REMEMSER: CNE CANNOT SHIFT THE waaw', /5X, 

weed UNCCNTROLLABLE EIGENVALUE(S)..... wun’. /5X- 
*a#4e~e ONE MUST SHIFT IN SAME OROER AS wwe? , /5X, 
*““4ee WAS DISPLAYED TO MAINTAIN PROPER “Huw. /§x, 
eee MSCONTRELLABILLITY TOENTIFICATION wwew' ,/5X) 

BG 320 { 2 U.N 

WRITEC6 +526 )1 

S26 PCRMAT CLIX. *CESIRED C-LOOP EIGENVALUE (°.11.°) ='./5X. 


wm & ow ot) 


1 "REAL PART ..ENTER THEN IMAC PART ..ENTER'./) 
PEADC*. 325) X 
READ(*.326) Y 


326 FORMATCF12.5) 
EICOCT) = DCMPLX(X.Y) 
339 CONTINUE 


Cette ee ee eee ee eee eee ee Ce eRe ece Creer 2 S| 


c 


c INPUT DESIRED VALUE OF CV 

c 

rere Cece erecerercerrrercercereerrerecrcerrcrrcererrrcerererrerrrcrrerrr yt tre 
ha WRITECO.349) 


340 FORMAT(/ 10X.-'«4"e INPUT DESTRED C X EICENVECTOR wee? ./10X. 
‘wees FOR ZACH EICENVALUE IN COLUMN “44%'./10X, 
*uaee FORMAT. wwe /) 
DO 350 J zs 1+N 
Gueeou et = isl 
WRITE(6-S51)1.J 
7o8 FORMATCLIX-°EC se Tle’ se’ eo Lle*) 2 * 45K. 
i "REAL PART ..ENTER THEN IMAC PART .. ENTER‘ ) 
READ(“.35645) x 
READ( 4.345) ¥ 
345 FORMAT(F12.5) 
ECI.J) = OCMPLXUX.Y) 
250 CONT INVE 
C4 ut Oe OF eg WF Oo Ot OF tt Ot Ot OF tt Ot SE Oe OF tt at Oe tt ott tt OF Ok Ot a ae Od OO Ha ttt Ot tt 
Cc 
c DISPLAY DESIREO EICENSTRUCTURE 
c P 
CS MS es tia if tt 
25 CALL FRTCMSC(‘CURSCRN °) 
ARITE(6.360) 
390 FORMAT(//10X.' 444 DESIRED EIGENSTRUCTURE FOR USE IN MOORE “uw! ./ 


ff) e- 


1 10x. ‘wuww ALGORITHMS. IGNORE IF KAUTSKY ALGORITHM «suw!,/ 
2 10x. eer WILL Bc SELECTED. ween // 
3 .6M.°EIGENVALUES’.12x.'°C * VOTI°«/) 


OO 280 I = 1.N 

MRITE(6-+370)} ELCOCI)- CECK.1T)-Kel-L) 
370 FORMATCIX-2CELO.35- 1M LX-BC/2GX-E10.2-1%.E10.35)) 
380 CONT INUE 


c 

OM 6 0 4 6 WF OF oF OF Ok 6 OF oO Ok OF OE Mt At dak OO AF AS WS FO EW OS Ot OO ad A AH aa 
Cc 

c CALCULATE EICENVECTCR ASSOCIATED W/EACH EIGENVALUE 

c 

CM ts 6 5 6 OF OF tO 6 tO AE OO A OF OF FO eA Oe A 
c DECICE ON MATRIX OR ALCEBRAIC SOLUTION OR KAUTSKY ALOCORITHM 


WRITE(S.585) 
285 FORMAT(///5K,'4euw ENTER “1° FOR MOORE-MATRIX SOLN. Neues. £OK 


le ‘euuw ENTER "OS" FOR MOORE-ALCESBRAIC SOLN.*444'./5X, 
= ‘amen ENTER “3 FCR KAUTSKY ALGORITHM. wees! /5Xe 
3 ‘wwe NOTE: MOORE-ALCESRAIC SOLUTION IS 444’. /5Xe 
4 ‘wee RECO IF L>M ANO YOU DESIRE MOORE AL ¥8#¥4°./5X, 
5 "a4 CORITHM. KAUTSKY ALCORITHM REOD wee’, /5X, 


143 


LS 
@ 
rr 


401 


395 


396 


410 


oO ff 
tr) 
°o 


C22 
aT 
av 


‘w#em FOR COMPLEX EIGENVALUE ANALYSIS AND¥##4'./5X, 
'waew INTERACTIVE EIGENSTRUCTURE DESIGN *44#'./5X, 
3 ‘wee ANOQ FOR OUTPUT FEEQSACK PROBLEMS. “4#4'./) 
REAQ(*.386)ISOLN 
FORMAT(I1) 
CALL FRTCMS(°CLRSCRN ') 
IF CISOLN.EQ.1)GS7TO 337 
IFCISOLN.E€O.2)GOTO 7231 
CALL KVECT(A.8-C.C-E1GO.F-N»MoL.VO.V. [FEEO) 
wRITE( 5.282) 
FORMAT(/5X,'44#¥* KAUTSKY ALGORITM COMPLETED *¥"4'./) 
GoTo 509 
CALL ALGSLN(A.8-CrEIGO-Er UNITY «NeMeL i Ve WMS ) 
WRITE(S5.588) 
FORMAT(/5X.'4¥*44 ALGEBRAIC SOLUTION COMPLETEO *44H'./) 
GOTO 4321 
po 400 [I = 1-N 
REINIT SLAMORA MATRIX 
DO 390 [I= 1-10 
PG S90 JJ= leis 
SLAMOA(TII+JJ)= 0.00 
CONTINUE 
REINITIALIZE WC2 
0O 4Cl [I = 1.10 
WEZtIt) = 08.00 
CONTINUE 
RECOMPUTE SLAMDHA MATRIX FOR EACH EIGENVALUE 
CO 395 J = 1.N 
DO 395 K = 1.N 
A = OREALCEIGOCI)) 
SLAMDACJ.K)=2 K¥UNITY(J-K) = ACJ-K) 
CONT INUE 
AUGMENT SLAMOA TO INCLUOE 8 
OO 396 J = 16N 
OO 295 K = 16M 
SLAMOA(J+-K*N) = BC JK) 
CONTINUE 
AUGMENT SLAMOA TO INCLUOE C 
oo 410 J = lel 
DO 410 K = 1.N 
SLAMOA(J*N.K) = C(J-K) 
CCNT INUE 
CALCULATE <9 EC-I)> TRANSPOSE 
OO 4205) 2 1.E 
X # OREALCECJ.1)) 
WOOCJ*N) = X 


CONTINUE 
CALCULATE < V(I) WI) > TRANSPOSE 
Tis We 


CESUG WRITE STATEMENT 
WRITECS-G21) 
FORMAT(SX.'*#4*#* SLAMOA AUGMENTEO MATRIXK*448'.7/) 
GOO 4602 KI = 1-11 
WRITE66,422 )(SLAMOA(K] .K2)-K221-11) 
FORMATCIX-8(E10.2-2X)) 
CONTINUE 


CEE REE Ree eee Lee eee eee eee eee eee eee eee eee eee eer es eee ee 2 | 


c 
Cc 
Cc 
Cc 


JUMP TO 580 FOR UNCONTROLLA2GLE EIGENVALUES 
(PRESENTLY PROGRAM WILL NOT HANOLE THIS CASE) 


Lette eee tee eee ee eee eee eee eee eee eee eee eee eee eee eee ee eee err errr es 2 8 


IFCICTR(I).€Q.0)GOTO 680 
CALL LEQTIFCSLAMOA,1+11,.10,WCl.1.WKAREA, IER) 
00 480 J=I1-N 

VOCJoI) = OCMPLX(WCO0J).0.00} 
CONTINUE 

oo 485 J 1M 

WM3(J-I) = WCO2(U*N) 


au 
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485 CONTINUE 
400 CONT SNUE 
oor REECE EERE eee oe eer eee eee eee ereereecerererrecerererrererrr yr 


c 


Cc CHECK FOR [NOEPENCENCE OF ZIGENVECTORS COMPUTED VIA 
Cc MOCRE ALGORITHMS 
Cc 


CHEM EEE ESCH SEH EHEH SESH SCHEEHEM MHD YH Od Oe Oe 
(S5 CALCULATE RANK OF V 
Cc LSVOF REPLACES ’V° WITH TRE ORTHOGONAL °V’ MATRIX A LA SINGULAR 
C VALVE DECOMPOSITION. THEREFORE ’SAVE’ REAL PART. 
4B! ood 4GB2 I = 16N 
DO 482 J = 1-N 
VR(T.J) * OREAL(V(I.J)) 
VRSCI.J) 3 VRCI.J) 
VRTCI2J) = UNITYCI.J) 
682 CONTINUE 
CALL LSVOFC(VR.~1LO.N¢N-VRT-IOeN-S2-WK] IER) 
IFCIER.£0.33)GOTO 490 
GCTO SOI 
499 WRITE(6.500) 
§00 FORMAT(//S5X."*** “EIGENVECTORS ARE NCT INOEPENOENT. MUST #444 °,/5X, 
l "wane CHANGE C X ELGENVECTOR (1) OR CHG IN— #446, /) 
IFC ISOLN.EQ,3)GCTO 6B 
GOTO 335 
tee REE eee ee TREE ETE EEE EERE EERE ERE SERRE ERE REE REE Eee | 
c 
c CALCULATE FEEDBACK GAINS 
S 
CHHHEM HME MEHHMHMEMMMYRKHEMMMYM MM i ee 
Sd! CALL LINVO2EC(VRS.N.10.-WMG,.1-WAREAL- ITER) 
WRITE(5.$07) 
507 FORMAT(/5X,'°**44 EIGENVECTOR MAT HAS BEEN INVERTED+ F GAINS NEXT *« 
Lwew’ ,/) 
CALL VMULFF(WMZ,.WM4.M.N.N-I0-10.F-10,1ER) 
ARITE(5-508) 
508 FORMAT(/SX.°*#4% F GAINS COMPUTED *444°,/) 
c ASSIGN PROPER SENSE TO FEEDBACK GAINS 
DO $05 I = 16M 
DO $06 J = 1.N 
F(I.J3 Es@laere)p) 2 
$06 CONTINUE 
C4 96 8 em de 8 Me Oe th OO OO Od Se Oe as Fm ne 
c 
c CALCULATE A * BF OR A * BFC OR A * BYINVO] = FDI*FC 
Cc 
C 34 1 94 sd OF 80 Mt OF 8G Od a ee mh 
599 TEC TeCED- EO. 1 1G0710. 573 
PetlFe=b.c°.cIGCTO S16 
CALL VMULFF(CF.C.M+-L»N-10-10-WM7.10-IER) 
CALL VMULFFCF.D.M-L»M.10+10-WMB-I0,IER) 
po SI6é I = [.M 
90 SI6 J 3 I.M 
56 WM9(I.J) = UNITYCI.,J) - WMSCT-J) 
CALL LINVZF(WM9.M.10-WM10.0,WAREAC,. LER) 
IFCIER.NE.129)GOTO $18 
WRITE(6.519) 
519 FORMAT(/S5X."“444 I = FD IS SINGULAR. RESULTS ARE INACCURATE “444? 
tors.) 
$18 CALL VMULFFCWMIO.-WM7.M.»M»N-10.-10,4MI1.10-IER) 
CALL VMULFF(S.WMLILN.MON-10-10,-WM12.10-IER) 


BOovSt7y 1 2 [.N 
DO SI7 J = I-N 

as Series) ) st Atis)) * WAIST. J) 
GOTO $12 


S14 CALL VMULFF(B.F»NeM-L-10-10+-WMS-10-IER) 
CALL VMULFF(WMS.C.N.L.~N-I0,10.WM6-10, IER) 
OO sl's. 1 I.N 
DO $i5 J 1.N 


iy 


515 ABF(1.J} 2 ACI.J) * WM6C(T-J) 
GOTO 512 
S15 CALL VMULFF(B.FsNeMeNeI0+10+WMS.10-1ER) 
OO°510 1 = 1.N 
00 510 J 1.N 
ASFCI.,J) = ACI.J) © WMS(I.J) 
510 CONT LNUE 
PEP UTECTOUCOUOCOOCEOOOOIOCCCOPeCreerr error er ere reer eer eee res 
c 
C CHECK FOR CONSERVATION OF C¥V QURING DESIGN ITERATICNS 
Cc 
TERRI CEELOVOOCLOCOOLOOCCSOOOCOCOCOCCOO CCCs eee eee rs co 
LEC ISOLN.EQ.3)GOTO 512 
aut CALL VMULFF(C.VRS-L,N-N-10°510-CV,10-1ER) 
Sle WRITE(5.520) 
SCC FORMAT(/,'*4*"« [F SINGULAR VALUE ANALYSIS OESTIREOe ENTER "I" “ewun? 
1./. ‘wwen OTRESWISE ENTER 7c - «une! 
2) 
REAQ(*.S530)1SVA 
520 FORMATCIT) 
CALL FRTCMS(’°CLRSCRN ° ) 
IFCISVA.EO.2)G0TO 540 
EERE PEEOCOCCOEOCELPE CEC LOPereereerercerreererecrreeereererererrerre ree ers 


Cc 


Cc SINGULAR VALUE ANALYSIS OF OESIGN 

c 

ARETE LE COSCO CSOOCOOCCOCOCOOCOOS ECOL ETC Terese reece rrreererecerrerrerrery 
C31 FCl.I) = -146.18705 

c F(le2) 2 3.5569 

c F(l.3) = 77.9429 

c FCl1.4) = ~61.009 

c F(o.1) = -0.05329 

Cc FC2Q+2) = -2.61465 

c FC203S ) 22530055 

C F(2+4) = -15.58603 

531 CALL SVACA.B-CeDeFeUNITY+Ne Mele We SVM» SVMAX »SVM1 -SVMAX1, LFEED) 
OPEC E OEE COL er eer eee er reer rece rer rr eee rer eer re err er er ererrrrrrrr rrr 
(e 

Cc OISPLAY RESULTS 


C 
CH We ed 
540 CALL FRTCMS(’CLRSCRN ° ) 
WRITEC6.600) 
600 FORMAT (///15X,'«sueaenen QESIGN RESULTS “Huuuneuet 7/7) 
IFCiSOLN.EQ.3)GOTO 623 
632 WRITEC6+601) 
QI FORMAT(//5X,' 4444 W MATRIX COMPUTEOQ OQURING MOORE SOLN «448'7/) 
00 602 1 = 1.M 
WRITE(6, 603) (WM2Z(01,J).-U21,N) 
603 FORMAT(C1X,8(E1S.5-1X)) 
de CONTINUE 
633 WRITEC6-65351) 
631 FORMAT(//5X.‘'u¥4" C-LOOP MATRIX. A * BF ween, /) 
OO 640 1 = 1+N 
WRITE(6-603)(AGFC(I-J)+JE1.N) 
640 CONTINUE 
WRITE(6-650) 
650 FORMAT(//5X.’ sw» FEEQBACK MATRIX “ewn',//) 
00 5670 [ = 1.M 
WRITE(6-600)(FC(I-J)-Jel-L) 
660 FORMAT (1X.5(2X-E12.5)) 
670 CONTINUE 
c SAVE ‘F* SINCE LSVOF DESTROYS F 
OOsS1 = 15m 
00 651 J = lel 
651 ESAVECi J) Ss °F Cli.) 
CALL LSVOFCFSAVE.10.M,L,UIF.I10.0.SF WK, IER) 
X 2 SF(1) 
WPITE(6»695)X 


e 
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695 


6e2 


696 


Bf 


“2 


900 


1000 


680 


970 


FCRMAT(/5X.° SPECTRAL NORM = '.EI2.5) 
CALL £IGRFCASF.N.-10.1-25.26.10.WKG. IER) 
FINO CONDITION NUMEER OF OESIGN EIGENVECTOR MATRIX 
CALL COND(Z6.N-X) 
WRITE(6-692) 
PCIMad(/SXs° "=e DESIGN EIGENVECTOR MATRIX ‘tmmees } 
Da ef3S i =. 1.N 
WRITECS BOOIMCISCL JI -SeIN) 
CCNT INUE 
ARITE( 6-596 x 
FORMAT(/SX.'2 NCRM CONDITION NUMSER = °.E12.5) 
NCRMALIZTE EIGENVESTOR MATRIX 
50 671 J = 1.N 
xX = 9.00 
DO 672 [I = 1.N 
KM 2 4 + GREALCIG(T.J)Jee2 © OLMAG(O4GCT J) i4¢2 
CQ 67I I = 1.N 
S6(2-5) = 2601. SI/OSORT(X) 
WRITE(6-510) 
PCRMAT(/5X.° wee NORMALIZED DESIGN EIGENVECTOR MATRIX weww’./)} 
DO 639 I = 1.N 
WRITE( 6 ned (2401.5). Se 6N) 
FORMAT (8(1X.£9.2)) 
CONTINUE 
CALL CCND(Z46.N.XN) 
WRITE(6 +594 )XN 
ARITE(6-.490) 
FORMAT(/5X.’"e¥n DESIGN C-LOOP EIGENVALUES «eee? /IZX. 
1 °SEAL PART’ .6X.' IMAG PART’ .7) 


CO 69! f = 1.N 
WRITEC6-156)1-C5(€1) 
CONTINUE 


IF(ISOLN.EQ.3)GOTO 915 
WRITE( 6.900} 
FORMAT(C//5X.°" tHe Es<C><V> MATRIX AFTER DESIGN COMPLETE ue ,/ 
15x. ‘ewww NOTE: OGM CHECK FOR MOORE ALGCRITHM ween’ /) 
oO 810 af -s> lek 
WRITE(CS6 920 )(CV(I.JS)} -USIeN) 
FORMAT (1X-5(2X,E12.5)) 
CONT TINUE 
TFCTSVA.E9.2)G07TO 680 
WRITEC6.920) 
FORMAT(//I5X.'**¥" SINGULAR VALUE ANALYSIS OF OESIGN “MeN? //IX, 


I FREQ I + FG I + GF° 
Rohl oar * RAD/SEC MAX SIG MIN SIG MAX SIG MIN 
3 SIG’./) 


DO 949 I = 1.230.10 

ARITE(6+950) WOL)-SVMAX(IT).SVM(I)-SVMAXICI)-SVMICT) 
FCRMATC(IX.F7.2+1K6CEL2.9-1X)) 
CONTINUE 

GENERATE OATA FILE FOR S.V. PLOTTING 

CALL SVPLOT(SVM.SVM1 WwW) 

WRITECS-1000) 
FORMAT(//5X.’s~e~ IF YOU ARE AT A TEK618 CONSOLE ANO CESIRE sewn’, 
/SX,°4e"*s A PLOT OF MINIMUM S.V. OF THE RETURN DIFF oun? 


~ 


eo /5X,%uewwe MATRIX JUST COMPUTEO; TYPE THE FOLLOWING “ue, 
z 45X.°wuwe AFTER EIGENS COMPLETION. ....ceseeeee So00G Whit Je 
4 /5X,°uuww “SLOT” FOLLOWEO SY “OISSPLA SVPLOT FORTRAN’ +#4e? 
S 4) 


IF (TRECON.E9.2)GOTO 960 
WRITEC 6-970) 
FORMAT(/5X.° "4" QAMAGEO B MATRIX verve’, /) 
BDO 971 [I = I[.N 
WRITEC6- 90 )CSCELCI.J) J=IeM) 
AR IVTE(6.972) 
FORMAT(/5X.° eee RECONFIGURED FEEDSACK GAINS wet’. /) 
00 9753 [ = I[.™M 
WRiTECS-°D,CFDELC IS)? JaI-L? 
wRiTE(5.975) 
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975 


976 


977 


978 


979 
950 


FORMAT(/5X+° "444 RECONFIGURED NORMALIZED EIGENVECTORS ¥en? ./) 
WRITEC6+-S2O)((VRECON(L J) -J2leN)oL216N) 
WRITE(6 +976) 
FORMAT(/5X.°"** RECONFIGURED EIGENVALLES www’ ,/) 
WRITECS-158)01 EIGREC(I).T=1,N) 
WRITE(C6 +6977 )SMREC.WREC 
FORMAT(/5X,°4*4 MIN S.V¥ = °E1D.55° wee’. /5K,*uuuw AT FREQ = °, 
Telesse 4444S 7} 
WRITE (5-973) 
FORMAT(/5X.'4444 RECONFIGURED C-LCOP MATRIX ““44°./) 
DO 979 { = [sn 
WRITE(6.505 ) (ASFOELCI+J)-J21.N) 
CALL RESULT(A.5.C.F.FOEL.-BOCL 24-25 +L eMoN) 
END 


CHAM MMMM MH HMM MEUM MEE MMI MMMM = 


Cc 
C 
C 
C 
e 
C 
Cc 
E 


10 


4$ 
C 


SUBROUTINE SVA PERFORMS SINGULAR VAULE ANALYSIS OF 
THE RETURN OLFFERENCE MATRIX OF THE DESIGNED SYSTEM. 
IMSL ROUTINES RECO: EECT IC . 

ETGENS SUBROUTINES REQD: CMATML.CSVD 

COR V.F. GAVITO VER 1.0 JANUARY. 1986 


54 54 4d 44 4 de Oh tt th fe 


SUEROUTINE SVACA.8.C.0.F-UNITY»N1oM1 LI we SVM» SVMAX.SVM1 + SVMAX1 » 
1 [reso) 
IMPLICIT REAL*8(A-H.P-2) 
REAL*B AC10-10).3010-10)-CC1O-10)+UNITY(10-610) W(2000).SVM(2000). 
I S1C1O)-X1-VI-F(T0-10)-SVMAX(2000).X-SOC10)-SVM1(2000), 
SVMAX1(2000).wA(10)-0019.10) 
COMPLEX*25AC(10-10).580(010.10)-COC10.10)-WMC2(10.10)-WMC3(10.10). 
GOC10.10)- ULC10.10)-VIC10-.10).ROM(10.10).WMC4(10.10).- 
WMCS (010.10)+FCC10-10)-ROM1(10.10)-UI1(10.10)-VIi(10.10) 
3. oc (10-10) 
COMPLEX*26 WMC1(10.10)-UNITYC(I0.10) 
INTEGER N1.MI.L1-IFEED 


fr) 


fs 


cO 190 f 4 1.10 
Wa(l) = 90.50 
SICI}) 2 0.00 
SoCI) 2 9.00 


DO 10 J = 1,10 
4C(I.J) = (0.00-0.00) 
ROM(I.J) 2 (0.00.0.00) 
ROMICI.J) = (0.590-C.00) 
CC(leJ) 2 (0.00.0-00) 
UICI.J) = (0.00.0.00) 
VICI-J) = (0.00.0.00) 
UIi(l.J) = (0.00.0.00) 
VIICI.J) 2 (0.00.0.00) 
UNITYC(I.J) = (0.00.0.00) 
aMCI(T.J) 2 (0.00,.0.00) 
WMCOCI.J}? = (0.000.000) 
WMC3(I-J) = (0.00-0.00) 
WMC4(I.J) = (0,00.0.00) 
WMCS(I.J) = (0.00.0.00) 
Sc(f.J) = (0.00.9.00) 
OCCi-J) = (0.00.0.00) 
GCCl.J) = (0.00.0.00) 
FC(1.J) = (0.00.0.50) 
CONT INUE 
00 «<5 I = 1.2000 
SVMC(I} 2 0.00 
SVMAX(T) = 9.00 
SVMI1(I) 2 0.00 
SVMAX(IT) = 0.00 
CONTINUE 
FILL UP COMPLEX MATRICS WITH PROPER DATA 
DO 1C0 I = i.Nl 
UNITYCCi.[) = (1.00.0.50) 
WMCS(I.[) = (1.00.0.009 
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30 [00 J = 1-N} 

xX = ACl-J) 

AC(I.J} = DOMPLX(X.0.90) 
106 CCNT I NUE 

DO 290 [ = 1-NI 

CO 200 J = lM 

X = B(T.J) 

V2 (Je!) 

SC(I.J) = DCMPLX(X.0.00) 

FCCJ.1)} = DEMPLX(Y.9.09) 
=09 CONTINUE 

DO 300 } 

DO 300 J 

X 2 C(l.J) 

cc(l.J) = CCOMPLX(xX,.0.00) 
390 CONTINUE 

DO. 210 4 = Jstil 

OO=slo yd a Last 


1-u1l 
LeN1I 


au 


210  SCll + JJ eOCEMPLX( DL). J) -0.00) 

ec AUGMENT (IF REQD) C TO INVOKE A SQUARE RETURN DIFF MATRIX 
c PRESENTLY THE PROGRAM AUGMENTS WITH TRE [DENTITY 

ie IF(L1.EG.NI)GOTO 350 

G INCEX = Nl = LI 

cE DO 325 J = I.INDEX 

e GslJ-bi-J*L1) = (2.00.0.D0) 

C25 CONTINUE 

350 wll) = 1.501 

Cc DISPLAY AUGMENTED F MATRIX FOR SVD 

e WRITE(S.310) 

CLO FORMAT(15X.* 4444 AUGMENTED F MATRIX FOR SVD COMP “444° ./) 
Cc 00 Sele sles 

C DO 31f K = 1.NI 

[ed X2 = DREAL(FC(J-K)) 

Cc X22 DIMAG(FC(J.K)) 

Cc WRITEC6.312I5-KeK2.x3 


eZ FONMaMtGanicmrGtrmilarnrrce Lae} £ e&L2. 50° © J eb la.5 } 
cle CONTINUE 
DOSS eo 2 Tveltd 


DO 4900 J = 1-NI 
DO 400 K = I.NI 
XSite) 


WMCI(J-€) = DCMPLX(0.00.X)} * UNITYC(J-K) = AC(U.K) 
400 CONTINUE 


c wesunesene[MPORTANT NOTI‘4 uw ue we 
C ” LESTIC DESTROVS wWMCI AND ” 
Cc “ REPLACES UNITYC WITH THE INVERSE* 
Cc « OF WMCT " 
Cc Ve VUCUUENEHE UHHH UENO 


Call LESTICC WMC] NI-LO-UNITYC NI-I[0.-0-WA- ITER) 
c ARITE(6.401) 
EGt FORMATCIX.’ <SI =~ Adw-I 'e/) 
5 DO 4602 J 2 J.NI 
& WRITECS+-GTOOICUNITYC(U-K)-KaleN} ) 
eq rs CONT [NUE 
CALL CMATML(UNITYC.-EC.NI>NI MI -WMCS ) 
CALL CMATML(CC .WMCZ.LI»N1»MI.-GC) 


c COMPUTE <F> * <G> 
Cc DO 8090 J = 1M! 
c WRITE(6-GIOOJ(FC(J-K)-K21.N1) 


C900 CCNTINUE 
fF CiFcED.EQ.1)GOTO 4190 
IF CIFESED.EQ.2)GOTO 4190 
DO 4l2 J [-L}! 
BO 4{2 K 3 1M} 
412 GC(J-K) = DCCI-K) © GOCY.K) 
610 CALL CMATML(FC-GC-MI1.LI.MI,»WMC2) 


(es ARI TE(6.4900) 
C099 FORMAT(IX.'<S]1 - A> “w=-] 4 Bs) 
(e BDO 4O0t J = I-NI 
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C WRITEC6+G1LOOICWMCS(JeK)-K21l-M} ) 
C100 FORMAT(B(E9.2-1X-E9.2)) 
C001 CONTINUE 


& WRITE(6.5000) 
CO00 FORMATCIX+'C “ INV<SI - A> * B'./) 
o po scol v= 1-Ni 
c WRITE(6+4100)(GC(JK)+K21.M1} 
C001 CONTINUE 
C wRITE(6+6000) 
C000 FORMATC(IX.' F * G '6/) 
E DO 6001 J = 1M 
C mRITEC6+G100)C(WMCL (JK) KE1eMd) 
CO01 CONTINUE 
C CCMPUTE <G> ™ <F> 
CALL CMATML(GC-FC+L1+M1leL ie KMCG) 
C RESTORE THE COMPLEX IDENTITY MATRIX 


ODO 480 J = 1.Nl 
DO 4650 K = 1.N1 
X = UNITY(J.K) 
UNITYC(J-+K) = DCMPLX(XK.0.00} 
4S90 CONTINUE 
C COMPUTE <I> * <F> 4 <G> 
pO 600 J = 1-1 
00 5600 K = 1-Ml 
ROM(J-K) = UNITYCCU+K). + WMCOC JK) 
6090 CONT INUE 
G COMPUTE <I> + <G> » <F> 
OS 650 J) 2 1.01 
SGeeSO°K ==" eel 
RDM1(J+K) = UNITYC(J+K) © WMCG(S.K) 
6590 CONT INUE 


Cc WRITEC HO bLlOJI WIT) 
c1qa FORMAT(2X.'WC’.12.’) 2 °,E12.5) 
Cc WRITEC6-611) 


cll FORMAT(IXK,’ 4444 RETURN DIFFERENCE MATRIX ¥H4¥H'./) 
C 0O 612 J = 1-MI 
c 00 612 K a 1-1 
& XL2CREAL(RDM(J.K)) 
C YIsDIMAGCROM(J-K)) 
C WRITE(6+643)5-K-X1-Y¥1 
Sil Ss FORMATO IRs ROM Melos se vile Fe owe la. 588 © oe Bee 
Ne CONTINUE 
e COMPUTE CSVD OF <I> + <F> “ <G> 
CALL CSVDOCRDOM.-10-10-M1-M1-O-MI1-M1-SI1-UI-VI) 
Cc COMPUTE CSVD OF <I> * <G> “ <F> 
CALL CSVOCRDOM1.10-10-L1-L1I-O-LI-LI-SOeUI1-VI1) 
ic WRITEC6.800)1 
cao FORMAT(/SX- "SINGULAR VALUES FOR WO('.IT2.°) 2°67) 


Cc WRITEC6.700)(S1(J)-J21-L1) 
C00 FORMAT(C1IX-68(E12.5.1X)) 
Cc WRITE LeoelS) SlCEM) 


cis FCRMAT(/2X+'MiN SINGULAR VALUE = °,.€12.5) 
SVMAX(I) = $101) 
SVMAX1(1T) = S201) 
Te(S10M1).LE.0.IGOTO 617 
TFCS2(E1] 3}. LE. O00 IGETO 617 
SVM(1I) 2 SICH1) 
SVMICI) = SOC(ll) 
GOTO 619 
o17 WRITE(6-618) 
618 FORMAT(/12X.'4sweww RTN DIFF MATRIX IS RANK DEFICIENT¥¥ eee? ) 
SVM(T) = 9.9999990°09 
ol9 WCi*l) = WOT) +.590 
5090 CONTINUE 
RETURN 
END 
CAHHHTHHHHHHA HEHEHE EH MMMM MMMM MMMM HMM HMMM 
C 
C SUBROUTINE CMATML (COMPLEX MATRIX MULTIPLICATION) 


L50 


COMPUTES: YY = AA * BB 
T4 = 3 OF ROWS IA AA 
Li. = 8 GF ROWS IN SS AND 8 OF COLUMNS IN AA 
IS = 2 OF COLUMNS iN 838 
MHEHMEHE OEE UME HERE HOH EEE MK REE EME EMME KMEEEME MME EEE EE MEN EM HY 
SUEROUTINE CMATMUL(AA.SB-IA-LL-I8-YY) 
COMPLEX*Lo AAC10.10).85(10,10)-v¥C10-10) 
INTESeRm TALLIES 
CO 30 I = 1.IA 
DO 20 J = 1.i8 
ViVi Glee OU Gir 0). UO) 
33 10 [NDEX = }-LL 
YY¥(1.-3} = VY¥CITeJ) © AACT.INDEX) © BBC INDEX.J) 
r9 CONT INUE 


ooaonondna 


rail 9) CONT INGLE 

39 CONTINUE 
RETURN 
END 


CHER EEEMEEEEHHEEEE EEE AEEEEE EH EMH EMH EEN HEHE 


c 


c SUBROUTINE CSVD 
Cc COMPLEX SINGULAR VALUE DECOMPOSITION SUBROUTINE 
Cc 


eS se SSIES A NSS MH N EH YANE HEME RENEE HRM EP OU HEHE HEN CH 
SUBROUTINE CSVD CAsMMAX+NMAX>MeNe IP ONUONVY-SeUPV) 
sMPLICIT REAGSB CAH, P=-2) 
COMPLEX 415 ACMMAK~.1)-+-UCMMAX.1 1). V0NMAX. 1) 
INTEGER MN. TP» NUONV 
2eeu“o SCs) 
COMPLEX“16 Q.R 
REAL“B 8(100).C(100).T(100) 
DATA ETA-TOL/1.$80-8-1.0=31/ 
NP=sN+]P 
NI=Ne] 
Cc 
C HOUSEHOLDER SEDUCTION 
C(1)20.00 


Kal 

10 K12K+} 

Cc 

Cc ELIMINATION OF ACI.K).[eKel.....0M 
229.00 
DCO co T=K.M 

<0 e2c*DREAL (ACT .X) )4*¥2*DIMAG(ACT KJ)" 42 
3(K 120.00 


femGe.Le.TOL) GO TO 70 
TeDSORT(Z) 
3(K)=2 
W=CDABS(A(K.K)) 
Q2(1.D6-0.003 
IF (W.NE.0.D0) GeA(K.K)/H 
ACK. K}s0" (Zou) 
IF (K.E0.NP) GO TO 70 
DO SO J=K1.NP 
0=(0.D0-0.00) 
09 20 [2kK.M 

20 C#O*DCONJGCACT KI) *ACL) 

; Oz0/ (24626) )} 

CO 460 [=K.M 


40 ACT. J}SACT-JI-O*AC1.K) 
$3 CONTINUE 
[eS 


Cc PHASE TRANSFORMATICN 
Q=-DCONSGCALK.K)I/CDABS(A(K.K)) 
DO $0 J=K1.NP 

60 A(CK,J)2O4ACK. J) 


Gc CLIMINATION GF A(K.~J).U2Ke2...-0N 


ied 


70 IF (K.EQ.N) GO TO 140 
220.00 
DO 80 JsKI.N 

80 ZeZ+DREAL(A(Ke J) #42 *DIMAG(A(K+ J) 4 HD 
C(K1)20.00 
fe (2.Le. Tol! Go 1o izo 
2=DSORT(Z) 
etki isc 
WeCDAES(A(K.K1)) 
Q2(1.00-0.00) 
IF (W.NE.0.00) S2A(K K1)/W 
ACK KI) 304 (Zou) 
DO 110 I2K1.M 
G=(0.00,.0.00) 
[0 90 J=K1.N 

90 Q=0*DCONUG(A(K.+ J) A(T) 
B2O/(2*(2ew)) 
DO 100 UsK1.N 

109 ACT J) SACT J)“ Q¥A(K ed) 

110 CONTINUE 

c 

C PHASE TRANSFORMATION 

2=DCCNJG(A(K+K1))/CDABS(ACK+K1)) 
DO 120 IsK1.M 
ACL KL) SACT.K1240 


0 
0 K=2K] 


le 
Ves 


GO TO 10 


FOR NESLIGIBLE ELEMENTS 
140 €P3$s0.00 
| DO 180 Kal.N 
S(K)28(K) 
T(K) 206K) 
150 EPS=DMAX1(EPS.S(K)*T(K)) 
EPS=EPSHETA 


Cc INITIALIZATION OF U AND V 
IF (NU.ES.0) GO TO 180 
DO 170 J=1-NU 
DO 150 J21.M 

160 UCT.-J)2(0.06,.19.00) 

170 UCJ.J)201.00-0.00) 

180 IF (NV.E€0.0) GO TO 210 
DO 200 J=l-NV 
90 190 121.N 

190 VCt.J)=(0.00-.0.00) 

200 VCJ-J)2(1.00-0.00) 


C OR DIAGONALIZATION 
210 DO 280 KK=1-N 
K=N1-KK 


C 
Cc TEST FOR SPLIT 
220 9O 230 LL=l.K 
PE Go) Bl 
IF (DASSC(T(L)).LE.EPS) GO TO 290 
IF CO4ES(CS(E—1)).LE.EPS) GO TO 240 
30 CONT INUE 


CANCELLATION OF ECL) 
40 CS=0.00 

SN21.00 
Lisl-1] 
DO c80 [=L-K 
F=SN¥*TC(1) 
TCL) sCS*TCL) 
le COASS(F).LE.EPS) GO TO 290 
H=S(1) 
W=DSORT (FE eH“H ) 


Cc 
Cc 
a 


eZ 


=o0 


~50 


~ 
- 


c 


300 
ba 


a(IoJ 
eens 


CRIGIN 


se STEP 


V(J»! 


S(t) 26 

CSeH/a 

SNs=F/a 

1= (NU.E9.0) GO TO 2590 

D0 250 J=1-N 

MeCREALCUCL-LI)) 
VsCREAL(U(L-2)) 

UC el PSSEMPLX OX -CS*V¥4SN.0.93) 
}sCCMOLX (VsCS—K=SN-0.029) 

Eohti) cefe) tek esse, 


3O 279 J=Nl.N? 


ACL1L.J)2sG"CS*R "SN 
JeR"CS—-o"SN 
NUE 


\ @GR CONVESGCENCE 
( 


I* (L.e0.4) GO TO 360 


SHIFT 


Ss( (Vem (Vem oe (SAH) E(SeR IIS (COC eee) 
SSCSGRT CF <Fe).0C) 
a (202 ooee)9Ss-G 


Sa((X-w)* (Kem )e (Vs (FR eG J—a) eH /X 


CS21.20 

SN=1.09 

ere) 

90 3590 T=L1.¥% 
2T(72) 

v2S(7) 


F=exX*C3°S*SN 
S2G¥CS=4*SN 
H=¥e¥SN 
vev"CS 
le (NV.ES.0) GO +O 310 
SO 399 Jsl.N 
SCREAL(V(J-iel)) 
WeOREAL(VCI.I)) 
VCJ-I-] )=DCMPLX(X¥*CS-WY¥SN.0.00) 
=DCMPLX(a*CS-K*SN-0.00) 


meDSIOT (Menor er) 


UCJ.i 
ae 


SCI-1 )2W 


VeDREaL(UCS. 1-10) 

mSSPSZAL (UCI. )) 

UCI I-11) =COCMPLX(V"CSewSN.9.00) 
YSOCMPLA (WeCS-V¥"SN-9.00) 

-£9.n°) GO TO 252 

SO 340 J=N1.NP 

Seal lel-J) 


RsA(T.J) 
AC T=1-J)204CS*R“SN 

340 A(T,J)2R*CS=-O*%SN 

350 CONT TINUE 
T(L)=20.00 
TCK SF 
S(K)=xX 
Go T0220 

c 

C CONVERGENCE 

360 IF (W.GE.C.00) GO TO 380 
S(K i s-h 
IF (NV.EO0.0) GO TO 280 
00 270 J=l.N 

370 VOJSeK)2-VOIeK) 

380 CONTINUE 

e 

C SORT SINGULAR VALUES 
DO 450 K=1-°N 
G=-1.00 
J=K 
DO 390 I[=K.N 
IF (S$(1).LE.G) GO TO 390 

2$(1) 

Jz1 

390 CONT [NUE 
IF (J.EQ.«) GO TO 450 
st J=S (6) 
S(K1sG 
IF (NV.EO0.0) GO TO 410 
DO 400 [=1.N 
O=V(1.J) 
VCT,-J)SVC1-K) 

400 VCI-K)20 

410 IF (NU.EQ.0) GO TO 430 
DO 420 [=1.-N 
Q2Ucl.y) 
UCT ,JJ2UCT eK) 

420 UCT .K)20 

630 IF (N.EO.NP) GO TO 450 
DO 440 [=N1,NP 
O2zA(J.T) 
ACJ,T)2ACK,1) 

440 AC(K.1)20 

650 CONT INUE 


C SACK TRANSFORMATION 
TE “QNU2EO-0) GO 10 510 
00 500 KK=1.N 
K=N1<KK 
IF (6(K).€0.0.00) GO TO 500 
Oz-A(K.«KJ/COABS(ACK«K)) 
DO 450 J=l.NU 

460 UCK + JIZO4UCK + J) 
DO 490 J=1.NU 
02(0.00.0.00) 
00 470 I[=K.»M 

470 O=O*DCONIGCACI.KII“UCT J) 
O=0/ (COABS(ACK.KI)*8(K)) 
00 480 I=K.™M 

480 UCT -JIZUCT.J)-<O¥ACT.K) 

490 CONT [NUE 

500 CONT I! NUE 

510 IF (NV.E0.0) GO TO 570 
IF (N.LT.2) GO TO 570 
00 560 KK=2.N 
K=N1-KK 
Kl=Kel 
IF (C(K1).E0.0.00) GO TO S60 
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Q=-CCONJG(A(K.K1))/COABS(ACK.K1)) 
DD $20 J=1.NV 
520 VCK1+-J3=O*¥VOK1.J) 
DO 550 J=l.NV 
92(0.00-0.00) 
DO $30 [=K1.N 
§39 QeQeral(K.~ LI *VCl.d) 
Q2O/ (CDASS(ACK-KIIJI*CCK1)) 
DO 540 {f=K1.N 
549 VOT eJAVCT-JI-C*DCONIGCA(K.1)) 
550 CONTINUE 
56) CON* INUE 
570 RETURN 
=ND 


CMM MME MUUCH UMM 


C 

Cc SUBROUTINE SVPLOT: GENERATES SATA FILE FOR USING DISSPLA 
Cc TO PLOT MINIMUM SINGULAR VALUE OF THE RETURN 
c CIFFERENCE MATRIX VS. FREQUENCY 
c 
c 


Lh ee ee ee ee ee ee ee eee el 
SUBROUTINE SVPLOT(SVM.SVM1 +W) 
REAL*8 W(2000).SVM(2900).SVM1(2000) 
DIMENSICN WP(20C0).SVMP(2000).SV¥M1P(2000) 
c CONVERT DATA TO SINGLE PRECISION FOR DISSPLA COMPATISILITY 
GO 10 I! 1.2000 
We(1l) = SNGLiW(T)) 
SVMP (1) = SNGLOSVM(T)) 
SVM1P (1) = SNGL(SYM1(1)) 
10 CONTINUE 
DO 20 1 = 1-2000-2 
WRITEC7+30)WP(1)-SVMPCI)+SVMIP(1).WPC1*1),SVMPC1¢1)-SVM1P(1+41) 
2 FORMAT(SCELL.5.1X.€12.5)) 
20 CONTINUE 


4a 


RETURN 

END 
eee COCR TEESE ECOCOOCOCOOCOOOCOOOOSCOCCCOOCCOOCCOOCCOSCOOCOLCCOOOCOCOOOCOCCIO. 
Cc “ 
Cc SUBRDUTIN KVECT: CALCULATES FEEDPACK GAINS VIA ” 
c KAUTSKY. ET. AL. ALGORITHM (1985) ~ 
G “ 


C 4 M0 4 0 a4 te Oe Ot ae So Oe tt Ot a el tel 
SUERCUTINE KVECT(A-8.C-D-E€IGD»F»NIoM1.L1-VO-.V. LFEED) 
IMPLICIT REAL *8(A-H.P~z) 
REAL“8 4(10-10)-8(10.10)3-C(10.10)-F(10-10)-UT(10+10)-CS(10.10). 
SC10)-WK(20).8S5(010-10).SM010.10)-VT(10-10).-CUT(10-10).SC(10). 
R2(10-10)-WAPEAL (C503 WAREAQ(050)+0010.10)-CSS(10.10), 
UTVC10+10)-RTINVO10610)+VIC10.10)-WKS(20)-CSSINV(10.10). 
31010)-S$2010)-WK1(29)-mwKO(020)-WACSO).S58010).WK3(50)-8G1(10.10). 
VOST(10-10)-VDIST(10-10)-UC10-10)-U0010.10)-U1T(10-10)-U1(10.10). 
UNITY(10-10)-W02090)-SVM(2000)-SVMAX(2000).SVM1(2000), 
YOTC10-10).RNULL(19-10)-SVMAX1(2000).8P1(10.10).857(10.10). 
SMC(10+10)+SV019.10)+SCHK(10.10) WAREAS(250)-SX(10),CG1(10.10) 
CCMPLEX*16 EIGD(10).V(10-10)-UNITYC(10.10).4ML(10.10).-U1LTC(10.10) 
*RNULLC(10.10)-WV(10)-4V1C010)-RESC10+10)-VSAVE(10-10). 
VOS(10-10).V01S(10.10).-UV0S(010.10)-VV0S(10.10)-UVD1S(10-10)- 
VV01SC10.10)-21.V0(10.10)-EZGOM(10-10),EVLC10.10)-VEVI(10.10). 
VMAC10.10)-U0TC(10.10) UTVC(10.10)-ROINVC(10-10)-FC{10.10). 
V01010.10)-VIV(10-10).U0C(10.10)-COTC(10-10)-C1TC(10-10), 
RIUC10.10).SPiC(10.10).-C1INVCC(10-10)-FC2010-10)-.DCFI(10-10). 
=C3(10.10).00(10.10).R20010.10),.CINV2(10-10)-0CFC1 (10-10) 
»XVS010-10)-XV010-10)-XVUC10.10)+XVVC10-10)-SKC(19-10). 
KOTC10.10)+-SXX(10-10)-RU(10.10)-RV(10,.10)-RVV(10.19)-RX(10,10) 
COMPLEK"16 RXIC10.10).-AVTCO10-10).KEC10.10)-4C(010-10)-AX(10.10). 
1 XCHECK(10.10)-RVUC10-19) 
INTEGER &1M1-L1.1aKC1000).1C010)-10G6(1).1061(20)-1C1(20)- 
1 1ROWC10.10)-(FLTC10).1ELEM(10)-1LCG. [FEED 
REAL“4 SRCEJ-EPS»SAV(10)-VL8(0100)-VUEBC(100),RA(20.40),.G(1)-DF(C0). 
1 WK3(2990).xX85(100)-CDOBU.GC(20)-.E-UR,UC.EPSR.EPSC.E1,-E2 


On Dn WM HR Ww Fe 


oOo nm WN KH eH Pf 


CHARACTER*80 TITLE 


CY4MHMN ENE HHH EHH EMM HMMM HHH 


c 
c INITIALIZE MATRICES & VARIABLES 
C 
CH HME EEE HEME HHMHEMMNE HMMM UMMM HMM HMM 
EPS = QO. 
E=.0. 
El = 0 
ES 220 


00 lo I = 1.10 
S(T) = 0.00 


SEUI) 270.00 
SclGlole =n oeoU 
SBC(I) = 9.00 
SCGlem=mOr OU 
S$X(I) = 0.09 
W¥CI) = 9.00 
DFC(I) = Q. 

[Feely = 0 
SwV(I) = Q. 


UG210>) = 91:10 

UTCT + )-s*-0..00 

Villy mar GG 

CUICi«J) = 0.00 

Gales) 5) Oecd 

SUiG@leec)an =n Org 

ACCI«<J? « (0.00.0.00? 
SPI(I-J) 0.00 

EAS Gad). 0.00 

VOICI+eJ) = (0.00-0.00) 
EIGOM(I.J) = (0.00.0.00) 
EVIGIsJ) = (0).D0.0.00) 
VEN TSG Tier) ees Ore ie Ore iUn) 
VMACTI.J) = (€0,00.0.00) 
UTVCI.J? = 0.00 
UTIVEL Is J) 309.004.9000) 
WAS (tod)! O (2) sfole! 

VOST CIs) <= -0..06 
VOISCI<J) 270.00 

VOTS7 G12 )=000,.00 

Ut lsJ 3290-00 

UOCI-J) 3 0.00 

UOT(I.J) = 0.00 
UCTC(I.J) = (0.00.0.00) 
Ulties) 20.00 

UT Cis e= 0.00 
ULTCCI-J) 2 (€0.00-0.00) 
RNULL(I-J) = 0.00 
RESCI+-J) = (€0.00-0.00) 
RZINVOGl.J) = 0.00 
RZINVC(I-J)? = (0.00.0.00) 
UNITY{I-J} = 0.00 
AMLCI.-J)J = (0.00-0.00) 
SHECI«d).* 0.00 

SV(IeJ) = 0.00 

BCHK(I,J) = 0.00 
RAGie)1°=- 0). 

IROW(CI-J) = 0 
UNITVYC(I-J) = €0.00.0.00) 
CCTE(I CS) = (0.00.0.003 
eINVECti J) =2200.00.0.00? 
Cookie )).= 0 aud 
CSSINV(C1. J) 3.0.00 
CINVZ(1I- J) 2 (0.00.0.00) 
EPIC(I.J) = (0.00.0.00) 
PIUCT.J) = (0.00.0.00) 
FEStts)) =9(0,00n0500) 
OCFECI+J) = (4.00-0.00} 
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weeciti.J) = (9.90.0.060) 


SECI.J) = (02.06.0780) 
FCSt(I-J) 2 (9.00.9.59) 
AVUCiod ) @ (Oteu+0.09) 
XVVCi-J3) = (9.00.0.50) 
MOTCiec)] = (O8260,.9.59) 
SXO(2.J3) = €08.59.0.759) 
SAXCI-J) = (OSDE.0.56) 
RUCI«J) = (0.38.9.90) 
RMGt) = (Ses5s0.00) 
2VVCi-J) = (0.09.0.50) 
QRVUCI.J) = (6989.0.50) 
RXCT65S) = (0.59-0.09) 
RME(T,J) = (3960.9/09) 
10 ONTINUE 
ma ts 1 2 1.29 
@KCi) 2 0.50 
w<XiCl) = 6.30 
e165 Ee le 
wWACT) = 0.00 
w<o(1) = 9.00 
Fe AKICI) = €.90 
OO i1 ft = 1eNI 
BGet!l J = Test 
SSi(%-J) = BCI.) 
a Sot ls Jaret ls) 
eG is [ = 1-<¢56 
wAR=AZ(1) = 0.59 
mar SAC(CL) = 0.99 
13 AaREAl(C2) = 9.90 
00 5 I = 1-196 
VUst(l) = 0. 
VUEC(IT) = 0. 
5 XSJC2) = 0. 
OG 146 [ = 1.10C0 
14 twK(I) = 0 
0G 15 [I = 1.3009 
rs WKSCI) = 9.0 
CSS SSeS SESSA EASA SEEE EEE REET ETERS SENSES EEE EEE 
c 
Cc RESNTT UT. BUILD COMPEEX A 2& FIND’ SVC OF 
ie 
CAF USAF CEES EEN EEE EEE ENE EASE EK HENNE KEM EEE I 
COs lot leNI 
UNITYC(I.I1) = 1.00 
CuT(l-.1I) = 1.209 
UNITYCC(I-i) = (1.00.0.50) 
Ute hy =" (1.00 
uG 29 J = 1eN1 
ra) aC(I.J) = SCMPLX(ACT.J)-0.90) 
CALL LSVSFC3S.19-N1.ML-UT-10eN1-S-WK.ITER) 
CALL RANKOCES-UTOS-NIoM1]-UCTC.-UITC.-RIINVC. IRANK.EGI ) 
Sece FATOMGC CLASERN *) 
IF CSE? .NE.32)GOTS 25 
AR TTEL6 +26) LRANK 
<6 FORMA™(/5K.,’ ee" 3 [5 PRANK DEFICIENT. RANK = '.[2.' “eet, /) 
GOTO 42 
c DECOMPOSE 8 
C FIND V 
i TRANK = MM) 
CO 21 f = 1-N) 
3G cI J = 1-N1 
ree | UCI.J) = UTCJI-T) 
Cc FIND UD & UO TRANSPOSE 
UGeaz. ft. en} 
oO to J = 16M1 
uoti.J) = UCT.J) 
UCC(I.J) = DCMPLACUO(T.y}.0.00) 
UOT(J-1) = UCT-o) 


- 


hr? 


YOTC(J-.1) = DCMPLX(UCT-J)-0.00) 
FINO UI & Ul TRANSPOSE 
00 23 [ = 1-Nl 
OGmes = M1 * IT-NI 
UlCI«s) = UCTS) 
UIT(J=-Ml-1) = UCI-J) 
UITC(J-M1-1) = OCMPLX(UCI.J}-0.90) 
OO-s0 I 2 bem 
00 30 J 1,M1 
Vict.J? = BSCT.J) 
30 CONTINUE 


nO Pf 


tJ 
ts 


[ WRITE U FOR OESUG 

¢ WRITEC6.500) 

coo FORMAT(/5X.'*44" U FCR B = UOV44T) sumu’,s) 
Ec 00 550 4 = 1-NI 

Cc WRITE(S.505 )0UCS0K)-K21-N1) 


825 FORMAT(1X-6(EI10.3.1x)) 
C50 CONTINUE 
WRITE UOT ANO UIT FOR OEBUG 


E ARITEC6.600) 

coo FORMAT(C/5X.' 4444 UOT «¥en! 7) 
C 00 650 J 2 1-Nl 

g WRITEC6-.525)(U0T(CJ-K)-K21-N1 ) 
cso CONT I NUE 

Cc WRITE(6.700) 

coo FORMAT(/5X-' #484 ULT “aut, /) 
E oo 750 J = 1-Nl 

Cc WRITEC6O SESICULTOCIK}-K2T NE) 


c50 CONTINUE 
OEE E LES REE EEE EE EERE EEE EERE RR EREREEEREPePE een, 
c 
C FINO RZ = OLAG<LAMO] LAMO2 ....>V4*T 
c ; 
(C4 4 96 Dd 6 56 Od 6 OH tO Od a Na a 
00 40 I 2 1M 
00 40 J = [eM 
40 VTCIe-J) = VIi€SeD) 
00°50 1 212ml 
50 SMCUI.I)) = Stli 
CALL VMULFFC(SM-VT-M1L>M1-M1-10-10-RZ2-10-1ER) 
00 41 f 2 1-Ml 
CO 41 J = 1-M1 
41 RZCCT+eJ) = OCMPLX(RZCT.3)-0.00) 
(LH 94 4 9 4 dt 8d ta dO Og Ne te a a a 
C 
© COMPUTE U*SI1GMA*Y TRANSPOSE FOR PGM CE38UG 
Cc 
C44 AMM MMMM MMMM UH 
00 B25 J = I-NI 
825 SMC(J.J) 2 SCJ) 
CALL. VMULFFCSMC.VT.NI1«M1-Mi-10-10+-SV-10- IER) 
CALL VMULFFCU.SV-N1-M1L /MI-I10.10-BCHK.10.1ER) 
WRITEC6-BO0) 
BOO FORMAT(/5X.'448% U * SIGMA * VTRAN “44H'./) 
00 850 J = 1-Nl 
WRITECS, 525) 08CHK( JK} -Ks16M1 ) 
850 CONTINUE 
(C4 4 4 6 6 6 6 eG 4 eg Ne 


(c 


Cc “SELECT” EIGENVECTOR MATRIX 

Cc (PROGRAM ETTHER REAOS 1N THE OESIREO SET FROM SYSTEM OATA 
Cc FILE OR WILL REAO LATEST CESIGN EIGENVECTOR MATRIX FROM 
c PREVIOUS COMPUTATION) 


MECERCLOEOCSOCOCOOOCCOOCOOOCCOOOSELOCCOOCOCOCSCSCCCOCCOCSOOCCOSCTCOLCOCTOCCOOOCOOC. CE 
42 WRITEC6-69) 
69 FORMAT(/10X.'4"4*4 PRESENTLY IN KVECT. ENTER “1” 1F YOU OESIRE 44% 


1'./10X. ‘444 TO USE PREVIOUSLY COMPUTEO EIGENVECTOR MA-) “sew! 
oe/10X. ‘#4eyv TRIX OR ENTER “2” ITF YOU OESIRE TO RECOMPUTE 4s‘ 
3,/10X. ‘uu THE EIGENVECTOR MATRIX. wae! 
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Ge/) = 
READ(*. 1080 )10PT 
TF CLOPT.EQ.cyGOTO 67 
DO 588 J = I.NI 
DO 68 K = I.Nl 
REAC( CS 66)V(K.J) 


64 FORMAT CSE... 5S) 
38 CONT INVE 
CALL FRTICMS(°CLRSCRN ‘) 
GOTO 66 
57 wWRITE(C 8.70) 
79 FCRMAT(/5X.°s eee PRESENTLY IN KVECT SUBROUTINE. SASE «44. /5X, 
I ‘aaee EIGENVECTORS SRE FROM DATA FILE. wuss’, /5X, 
= “aque PRESENTLY CHECKING [F THEY ARE MEM—- “444° ./5X. 
3 *aunw SERS OF ALLCWAELE SUPSP ACE. wae’ ,/) 


51 BOe75 f s=) Veni 
po 7S J = 1.Nl 


CHAS HMHENNMEYMEUE SH MNN EHH EHH 


C 


Cc CHECK 1F DESIRED BASE RIGHT HAND EIGENVECTORS ARE MEMBERS OF THE 
Cc NULL SPACE OF <U1 TRANSPOSE « <A = LAMOHA [ * I>> 
Cc 


AEE TEICECOCOCOLOCOCOCOCOOCEOCOCOOCOOCOOCOCOCOCOCOCOCOCOOCCOCOCOCCOCCOOCOCOOOCOOC ES 
ICSNUG = 0 
90°55 


oo Ss X = 1.N] 

56 AML(J-K) = SCMPLKCACS.<).9.00) = CIYUNITYC(U-K) 
IFC TRANK.EQ.M1IGOTO 43 
IY = NI-ITRANK 


GOTO 44 
GG CALL CMATMLCULTC. AML «+ 1Y+N1 eN1 »+RNULLC ) 


DO 57 J = 1.N1 

57 wY¥CJ) = VCJeT) 

59 CALL CMATMLORNULLC + KV-LTY-N1 +1 WVIC) 
do 58 J 2 1.Tlv 

53 RESCicid 2 WVIC(S) 


Cc FIND C-NGRM OF THE REST CUAL 
Y = 0.00 
SO 76 J = 1-1¥ 
76 Y= V¥ + DREALCRESCI- Tele OIMAGCRES CUT) )aeec 


RO3L = OSORTCY) 
TP Z=-NORM OF RESIQUAL IS OK -= JUMP OUT 
i= (ROSJ.LE.1.0-06)G0TO §5 


oO 


Lae eRe RE ERE REPRE RSPR RR RRR RRR ER RRR ERR REE RRR RRR RRR RRR RRR RR ERR RRR ERE REE E EE! 


Cc 
Cc 
Cc IF EIGENVALUE IS CCMPLEX. THEN PERFORM THE OPTIMIZATION 
Cc ONE TIME FCR BOTH THE EIGENVALUE AND [TS CONJUGATE. 
Cc 
C 


POO CREE COROCOCECOCOOCCOOCOCCOCOOCOCCOCORCOCOOCCOECSOOCOCOCECCCCEOOOECEOCOSCECLOC CESS 
TF (DIMAG(2Z1).E9.9.D00)GOTO 950 
ee C GONJG.E9.13GCTO 97 
ICONSG = 1 

960 WRITECS.-1COD)JIT.ROSU 

1000 FORMAT(/S//S5K.* see RESIDUAL TOLERANCE EXCEEDEO FOR OCESIREO anae 


1° ./5X. ‘weuw BASE EIGENVECTOR NO. ‘Toe’ ENTERING AOS 
owen? /5X, eeeee WITH ROBJ = *.EYS.5. * wane 
3./5X- ‘wus C-LOOP EIGENVALUES HAVE BEEN SPECIFIED... «we» 
G‘'./5K. ‘wesw ENTER NO. OF ELEMENTS OF THE EIGENVECTOR “4 
5° ./5K, ‘wwe WHICH MUST BE ARBITRARY. Medias 
6’ ./) 


REAC(“.1OSO)JIELE 
CALL FRTICMS(°CLRSCRN ‘ ) 
IFCTELE.E9.0IGOTO 2n2 
961 WRITES(6-1001)1ELE.1 
19001 FORMAT(/SX,*see4 ENTER ROW NUMBERS OF THE °- ic.’ ELEMENTS se 


159 


1-/5X. ‘wee OF EIGENVECTOR NO.'.12-‘ WHICH ARE ARBITRARY “uuu! 
AD Nie ‘wean IN [2 FORMAT, EXAMPLE: “O102" «uun! 
3°7)} 


READ(*- 1LO02ZICTROM(C Ue I)+J=1. TELE) 
FORMAT(IOL2} 
CALL FRTCMSC('CLRSCRN ') 
C¥HMMN MMH ENE KEM MH 
C 
Cc 
Cc 
CAMA MAME EMH EH EH EM MMMM MEH OHHH MEME MME 
902 SRCBJ SNGLCROBJ } 
INFO 0 
ISTRAT 
ToprT 
TONED 
NDV 3 
NCON = 0 
IGRAD 
ITPRINT 
NGT 2 0 
NRA 19 
NCOLA = 
SET SOUNOS 
ASK ALLCWEO TOLERANCE ON CESIGN EIGENVECTORS 
IFCIELE.EO.03GETO 1007 
WRITECo+1003) 
FORMAT(/5X.° 4% ENTER 
1'./5X-. IN 
REAO(*.1020)UR 
ARITECo. 1004) 
FORMAT(/SX. ‘464 ENTER 
1° + /5X. IN 
READ(*.1020)UC 
IF(UR.NE.1.E*06})GOTO 1006 
UR a O.1E+21 
IF CUC.NE.1.E*06)GOTO 1905 
UC * O.TE+c1 
IFCIELE.EQ.Ni GOTO 1013 
WRITEC6-1010) 
FORMAT(/5X,'4“e4 ENTER ALLOWEO EIGENVECTOR TOLERANCE IN 
IRMAT “aut, /5X,' eae FOR THOSE EIGENVECTOR ELEMENTS 
‘wee WHICH ARE NOT ARSITRAR’Y. 


1002 


SET UP FOR ADS OPTIMIZER CALL IN SINGLE PRECISION FOR RESTOUAL 


Le) 


= 
= 


! 
oN 1 


0 
1000 


10 


www 


REaL UPPER BOUND OF ARBITRARY 
"Fic<>' FORMAT. ENTER “) SEGR 


BES ME Mic 
NO SOUND. 


‘wee awa’) 


«uu 


1004 IMAG UPPER BOUND OF ARBITRARY 


"FL2.5” FORMAT. ENTER “1 FOR 


ELEMENTS 
NO BOUND. 


"wwe waunm? ) 


1006 


10¢c5s 

1007 

1010 “Pg Se 
awuut,/5X, 


. wuew./) 


- 


WRITEC6.1011) 
FORMAT(5X.' «ees ENTER TOLERANCE 
REAQC*%. 1LOCOJEPSR 
FORMAT (CFL2.5) 
WRITEC6-10120) 
FORMAT(5X,.'««44 ENTER TOLERANCE 
READ(*“. 1020 }EPSC 
CALL FRTCMS('CLRSCRN '} 


101i ON REAL PART “uel ./) 


ON IMAG PART “au? ,/} 


L-NOV-1.-2 


JJ 
KF INO 
FRUIELE: 


> | 
0 
EO.0)GOTO 1026 


1014 


DO 1025 K 


1. TELE 


TFCJJ.NE.TROW(K.1) GOTO 
KFIND = 1 
VUB(J} = 
VUE CI «17 
VLBCJ) 
VLB(J*1) 
1025 CONTINUE 
IF (KFINO.EQ.1)GOTO 1027 
DREAL (VDC JJ.1)) 
Y OIMAG(VO(JJ.T)) 
VUB(J) SNGL(X) * EPSR 
VUuSCJ+1) SNGE CY J3* EPs 


10c5 


UR 


Uc 
-UR 
-UC 


u 


~ 
= 


160 


$4 


83 


(2) 


=) 


VL3BCJ) =« SNGL(K) - £52 

Vi3(CJ*1) = SNGUCY) = =>S¢ 
XL 2 BME RVC) 

Mi s CEMBStCaV(JJ1) 

SavV(C) = SNGLIX)) 

SavCJS*)) 2) SceCrt ) 


Casw ACSCINSC. (37 9ST. ISPT. SSNED. TE RINT. SSGRAD NOV.NCON.SHV.VLS. 
1 VUS-S2SES.S. ISGNGT. Il. SE. PA NRANCOLA. SKS .5399- AK. 55S) 
ve 9 
PS 78 5 2 LeNeVH..f 
JB Sy oO) 
A¥VCIJ) = CMPLACSaVCJ1.SaVCL°1)) 
“VCSue-T) 2 AVC JJ) 
1GO~S S« 
2S Vas. = @SSECTEV= 2UNCTICN 
M_CZNULL SC omY.IVENIL Le eAVIC) 


Mere. J = 1-c¥ 


< oe 
i) 


¥ Sey CWERE (SS5C 2) I> - OL MAG RESi set) <2 
SS. = SSERFCY) 
Saces =« SNGL(9C82) 


CONT GG aS ASG CARMI TAT Swe CM INTMTSEING =O) 
MR ITE(S- SS 1R8CSJ.~1 
IRR EC / 1X, * se CSYECTIVE FUNCTION VAGUE © °.519.7-° swe’ s 1K. 
I ome FDR = PGENVSSGOR WE. ° wit. * see 
see omeGCll).25.2 } 
T=C ICENSG.S@.13G070 § 
ow 38 Kt 1 Ni 
ICONJG = 6 
SCSONIG(V(K. 223) ) 


VCKe2) 


CONTINUE 


DISPLAY SESULTS CF <CUIT#<A-LAMORAe[>><SESIRED SASE SISENVECTS 


o°./) 


g@¢4¢dGCGwmseanuese se Ge sets ts Sse ete tet ete e eet egese ts st GEC EedeFCn te FG seases Get Sedge aedetsedttadetseenvwsegnansd 


PS 


FASE O eS SESS EAE EASE EE ESHEETS HET SH SHAS EEEEE KEE HME ETEKEEHEO EH KEE DECKESED 


95 


FOAMAT(//SK.* 0040 THE ZCLLOWING MATRIX SISPLAYS THE "MEARNESS™ C 
Leese’, /5K, teese THE DESIGN ZIGENVECTORS °S THE ALLOMARLE S 
Deee'.sSk, ‘sete S2ACE FOR THE SYSTEM UNGER ANaLvSiS IN COL 
sees’. /SK, ‘sees FOIMAT. LF TRIS “NEAANESS” METAIK 15 NCT S 
Gees. /SK, "sess SaCTGay. ENTER “1. “VEST WILL NOW USE “HE 
Sese'./SX, ‘ees IGN EIGENVECTORS 42S THE NEW SESIFED Sa5z = 


4 ~ 
seme’. SSK. 0° 498s YETTSRS AND PEPEA” COT MI CoR CUT IME. Chae 
ae" .f5h. "Sees ESBS WS’. NCTxo: “S2FOM = 1.896 
Ciume” ./) 

GQ 6) I = I-I¥ 
MAQITE CO-alLICVESCI os) -Usl oN] ) 
SSaMaTC14K-8CS8.121K13 


i) 
'@) 
ao 
as 
L] 
ee 


VOCS-€) © WOS-<) 
GOTS Sl 


ee 
ea 
PN 
mi tS- 
seo 
[GaN 
2aiSt= 


TSO GSS EH PSS SOSH ASHE T SHEESH ES HEHEHE EESHSSEHOHEESESEEESHED EEE EHET HE HKH KERB EHES 


ano a 


= Le) ww. INVEPSE CF GP tiem ree SreenvectToas 


TI Cex FCA INVEa7: 


uw 
re 
t 
~~ 
= 
< 
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c 
OAT UUOROCEILOOOOCOOOCOSOOOOCOCSOOCOOOCEOOOOOOOSCOCOOOCCCOOOOCOCOOE ey 
65 Do 94 J = 1-N1 
DO 94 K = 1.NI 
[FC IOPT .e0. 1 IGOTO 211 
WRITECO.64)V(K.J) 
ee | VOCJ-K) = VCJ-K) 


94 VSAVE(J+K) = VOJ-K) 

Cc DEBUG WRITE STATEMENTS 

cC TITLE='V' 

C CALL CWRITECVNI-NI, TITLE) 

Cc CALL CWRITECUNITYC-NI-NI-TITLE) 


CALL LEQTIC(VSAVE NL. 1LO-UNITYC.N1,10.0.WA. IER) 
CALL CWRITECUNITYC.NI/NL. TITLE) 
CALL CMATMLCUNITYC.V+NL»NIONL-VIV) 
CALL CMRITEC(VIV.NL.NI.TITLE) 

RESTORE UNITYC AND REPLACE WITH VDI 

DO Slo { = 1«Ni 

DO 210 J = LN 

VOI(1.J) = UNITYECI+ J) 
ela UNITYC(I.J) = DCOMPLXCUNITV(I.J)-0.00) 


CA¥ AAEM EEE MEEKER 


qo”aon0 oO 


Cc 

Cc FIND C=NORM CONDITION OF OPTIMIZED EIGENVECTOR MATRIX 

C 
ARECOECEOCOOCOCOOCCOOCOCOOCOOCOOOOCOCOLOOOOOCCOCOSCOCEO OSCE CECE ECE ee 


DoT 79" 2 LeNI 
BDO 79° J = 1.N1 
VOSC0s J) 2 Vere) 

79 VDIS(I.J) = VBICI.J) 
CALL CSVDC(VDS-10-10-N1L-N1-O.NL-Ni-SL/UVDS.VVOS) 
CALL CSVDC(VDIS.10-1O.NI.N1-O-NIL-N1.-SO-UVDIS-VVDIS) 
COND2 «2 Sit TI4s2rT) 


a 


C CALL FRTICMS(C’°CLRSCRN °) 

s2 WRITE (6.85 JCOND2 

85 FORMAT(/5X,°'*444 2=-NORM CONDITION NO. OF EIGENVECTOR MATRIX “#44 
1° ./5X,°eaeew TS *,c12.5." uuww',/) 

WRITE(6-1040) 

1040 FORMAT(//5X.° asa" TF 2=-NORM COND NO. IS UNSAT: aauu’,/5X 
l. *eaee ENTER "1" TO MIN COND<V> VIA ADS. wana’ 
ae "44a ENTER “C" TO RETURN TO ADS MIN OF RE~ “HEH? 
3. *uuae SIDUAL OF <>. waa? 
G. ‘ane [F 2-NORM COND NO. 1S SAT: ENTER” waa? 
5./) 


READ(*.1050 )1COND 
1050 FORMAT(1I1) 
CALL FRTICMS('CLRSCRN *} 
IFCICOND.EO.2)GOTO SI 
86 IFCICOND.E€Q.3)GO0TO 91 


CYHMAEH RENE HEH EHH MH rh 


SET UP OPTIMICER CALL FOR 2-NORM CONDITION NO. OF V 
NOCON = # OF ORTHOSCNALITY CONSTRAINTS 
NSSCON = 2 OF ALLOWABLE SUBSPACE CONSTRAINTS 
NCON = TOTAL & OF CCNSTRAINTS fs 
CAUTION!!! NOT OPERATIONAL 


AAAAMNMM EK NMR EEE MEME HMMM NEE HEHHM KM OHM 
CO8J = SNGL(COND2) 
IN&O Q 
CAH HAMM EM EME EMME MMMM 
SiR Alee= a0 
IOPT 3 4 
IONED = 7 
ae ee ERC ee Ree eee rerrerrrrcerererreerrrrcerorerrerrreerrnrne ne Pie Pr en re Pee ee | 


NSSCON = Nl 


qo0oaono0anan 


Cc WRITE(6.1070) 
CO70 FORMAT(//5X.'«44" ENTER NUMBER OF ORTHOGONALITY CONSTRAINTS “4a, 
C 1 /5X. ‘waue IN 12 FORMAT. EXAMPLE: "06" waa ys 
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0/5X 
0 /5X 
o/5% 
°/5X 


oo oO 7 


1071 


1csl 
1082 
1083 
1084 


2 


13! 


as 


200 


= a0 


READ (4, 1002 )NOCON 


NCCN = NSSCON 

iGRAD = 0 

SPRINT = 2920 

NGT = 9 

NRA = [0 

NCOLA = 10 

NOV = C“NIANI 

IY = NI - Ml! 
IF THIS 2S NOT THE FIRST PASS THROUGH THE CONDITICN NUMBER 
MINeM ead iGN. som THE USER [fF HE/SHE EESIRES TO USE THE 
CURRENT EIGENVECTOR MATRIX CR IF THEY DESIRE TO USE TRE 
ESGENVECTCR MATRIX CCMPUTED DURING THE RESIDUAL MINIMIZATION. 

aRiTEC6-1071) 


FORMATC/5X-"#e4e CF THIS IS tHE INITIAL CONDITION NUMBER PASS «444 


i'./5K, (meee ENTER ~2". TF NOT AND VOU CESIRE TO REENTER ve¥s 
a ton eawee THE OPTIMIZATION WITH TRE UPDATED EIGENVECTCR +44 
3° +/SXK-e Sao SSENnoR oo os GhAeERAiSE ENTER “1° WHICH WILL SE=~4Hs 
G°1/SXKe *eawe START THE OPTIMOATICN WITH THE EIGENVELTOR 1444 
S°./SK. Tye MATRIX IN “DESVEC” DATA FILE. wean 
§°./) 


READ(“.1050 )I ICON 
IFCTICON.EC.2IGOTO 1072 
Dez s J = ish] 

CO 1073 K = I.Ni 


VCJ-K) = VWDCS-A) 


ASK ALLOWED TOLERANCE ON EIGENVECTOR ELEMENTS 


wRITECS. 10930) 
PCRYATC/SK.' 484 AT LEAST TWO EIGENVECTORS MUST FLOAT DURING THIS 


UR 


I weuu'.s5X.%uuns OPTIMIZATION. ENTER THE COLUMN NO.S OF THE EIGEN- 
= ween’. /5X.° sewn VECTORS WHICH MAY “FLOAT” IN ASCENDING ORDER IN 
53 wuuw?, /5X,*eaee [2 FORMAT. EXAMPLE: “O102" WILL FLOAT EV # 1 & 2. 
QG wun ,/) 

READC*- LOCCICIFLTCI}- LeleN1) 

WRITECS.1003) 

READ(*.1029)UR 

WRITEC6, i004) 

READC4.10200)UC 

IFCUR.NE.1T.E*08)GOTO 1082 


eA We ere | 


IFC(UC.NE.2.£°08)GOTO 1084 
UC = C.te+cl 
aPtT=2(6.1029) 


wRITECS-1011) 
REOOt*s LOCO JGr on 
WRITEC6-I1012) 
READiN «1 G207;2>5C 
Jp EA 8 

REINIT AND SET BOUNDS 
DO 130 K = 1.NI 
TELS )=. 0 
DFC(K) = 0. 
DO 130 L = 1-Nl 
X = DREALCV(L.K)) 
Y = OIMAG(V(L.4K)) 
XBJCJ) = SNGL{X) 
XBJCJ*1) = SNGLCY) - 
DO 131 If = I.Nl 


IFCIFLTCI1).cO.KIGOTO 200 


VOBII) 2 xXBUCJ) * EPSR 
VUB( Jel) = XBUCY*I) * EPSC 
VLBtJ) = XBJCJ) + EPSR 
VLSCJ*1) = xXBJCJ*1) - EPSC 
Jj Sed) 2 & 

GOTO 139 


VUBCJ) = UR 


VUB(J*1) = UC 
YVLBCJ) = -UR 
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VLBCJel) 2 -UC 


2 Ue a ae 
130 CONTINUE 
c DESUG WRITE STATEMENT 
C WRITE(6.2000) 
CQO00 FORMAT(/SX.' "es" VYECTCR BOUNDS FOR ADS eww’. 7) 
P DO 2901 J = 1.NDV 
c WRITE(6 +2092 VLS(J).XBICI)  VUBCU) 


CO0l FCRMATCIX.2CEIS.S-oxX) ) 
COOl CONTINUE 

DEFINE CONSTRAINTS AS NONLINEAR, [NECUALITY 

BO 135 £ = 1t.NEON 

125 IOG1ICI) 2 0 
Cc SET SOUNDS ON CONSTRAINTS 
Cc WRITE(6-1000) 
C060 FCRMAT(/5X,‘'****" ENTER ALLOWED TOLERANCE ON NON-ORTHOGONALITY “HHH 


Cc 1'./5X- as OF EZCENVECTCRS IN CECIMAL FORMAT. wwe 
c ae a 
Cc REAID(*. 1L0C0IE 


WRITE (H.1062) 
1062 FORMAT(/SX.*"44~ ENTER NEW DESIRED EIGENVALUES FOR CONDITION ‘4H 


1° ./5X» "wee NO. MIN. ENTER IN SAME ORDER AS DATA FILE. addi 
co’ 045K. ‘wwe NOTE: EIGENVALUES MUST SE ENTERED IN SAME EPI 
5 64 5Xic ‘wee ORDER AS CORRESPONDING EIGENVECTOR. IF El- LH 
G'./SX, ‘wvuse GENVALUE CCRRESPONDS TO & “NCN=FLOATING” wae 
5° ./5K. ‘aun ETGENVECTORe IT SHOULD REMAIN THE SAME AS icaltacta! 
6° +/5X, ‘wees TTS INPUT VALUE TO MAINTAIN DESIGN ROMTS. wun 


tae 
CO 1003 J = INI 
WRITE (6.1064 )J 
1064 FORMAT(/10X.'#*#4 EIGENVALUE NO. '«T2.° “eee. /5X. REAL PART 2°,/) 
READ(*.1065)X 
1065 FORMAT(FI2.S5) 
WRITE( 65-1066) 
1066 FORMAT(SX.’ IMAG PART 3'./) 
READ(*.1065)Y 
ErGD(J) = DCMPLX(X.Y) 
1063 CONTINUE 
WRITE(6-1061) 


1061 FORMAT(/SX.' 44s ENTER ALLOWEO TOLERANCE ON ACHIEVABLE SUB-= wa 
1° ./5X. *aeuw SPACE CONSTRAINTS. THIS VALUE CORRESPONDS wesin 
a’ /5Xs ‘eee TO THE ALLCWASLE EUCLICEAN DISTANCE BETWEEN 8a 
3's /SX. ‘wean THE DESIRED EIGENVECTOR AND THE ACHIEVAELE wie 
G°./5K. ‘“4a+ SUBSPACE CORRESPGNDING TO THE EIGENVALUE EN= “44 
§‘'./5X, ‘wean TERED ABOVE. en! 
6'+/) 


READ(*.1020)E1 
CALL FRTCMS C(°CLRSCRN ‘) 
c OPTIMIZE 
190 CALL ADSCINFO-ISTRAT. IOPT. IONED. IPRINT.» IGRAD»NDV«»NCON.-XBU- 
1 VLB.VUB,COBJ.GC.IDG1.NGT.IC1.OF -RA»NRA.NCOLA.WKS.35000.IWK.1000) 


& EVALUATE OBYECTIVE & CONSTRAINTS 
L =i! 


DO 140 K = 1.NI1 
V(KeJ) 2 CMPLX(XBU(L) XBU(Le1)) 
VSAVE(KeJ) = VOKea) 
Kei Oo @ 
140 CONTINUE 
CALL LEQTIC(VSAVE.N1-10-UNITYC.N1-10.0.WA, IER) 
DO 142 J = 1.N1 
DO 142 K = 1.NI 
14200 VDICJeK) = UNITYC(U.K) 
OO 145 J = 1.N1 
D0 145 K = I.Nl 
165 UNITYC(U-K) = DCMPLXCUNITY(U.K)«0.00) 
CALL CNSTRN(N1,GC.XBJ,E-€1 «NOCON.A.B-ULTC-EIGO.UNITY. IY» UNITYC 
olla» 
DO 150 J = IcNL 
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BO 180 K = 1-NI1 
VDS(J-K) = VCIeK) 
180 VBISCJ-K) = VBI(JS-K) 
CALL CSVD(VDS.10-10-NI1-NL-O-NI«NI.S1-UVOS. VVDS) 
CALL CSVD(VD1S+10.10.NI+NI.O0+N1+N1+32-UVBIS»VVDLS) 
CONDO = S1Cid*S201) 
& CALL NORM(V-N1) 
Cc CALL NCRM(VOILONI) 
LFCINFO.EQ.9)GOTO 92 
CO8SJ = SNGL(COND2) 
GOTS 190 
CHM VIO OME EMEA HEME EMME HEH CHK HMM MM M MM  M 


C 


Cc FIND <V><SM><VOL> *4*4 NOTE: VBL = [NV<eV> 

cS 

THO OH HUM UKM MO tt OM 
31 00 80 { = 1.N} 


80 EIGOM( +1) = ELGDCL) 
CALL CMATMLCEIGOM-.VDI-NI.NI.NI.-EV1) 
CALL CMATML(V.EVIONI NI .NI-VEVI ) 
pO 90 1 = 1-NI 
CO 99 J = 1-NI 
90 VMACT.J) = VEVICT.J) - BDCMPLX(AC1.-J).0.00? 
FIND SVOeGeE Cc 
DO-2sf' J = 1-LI 
bO 231 K = 1-Ni 
(Je) = CC J.K) 
ok i Sh4o) Ge [elelints»: 
CALL LSVDF(CS.19-LIeN1-CUT-10.L1-SC.WKG. LER ) 
CALL RANKOCCS,.,CUTe-SC.LIN1.-COTC.CITC.°SINVCC. IRANKC.CGL ) 
ARITE(S.255)1 2ANKC 
es 5 FORMAT(/SX-%s"s4 C MATRIX HAS RANK = '.[2-° suuu’,/) 
LF CIRANK.EQ.M1.AND.LRANKC.EQ.NIIGOTO 22 
LY = Nl — LRANK 
CALL FEEDEFCA,.3-CeVeVDI-ELGOM-5GI-ULTC-CGi NI -MI-LI-1LY¥-lLFEED-FC) 
GOTO 22 
ie CALL CMATML(CUOTS.-VMAMILeNI NI -UTVC ) 
CAI AAA GEM UE UH RMA MHEIMNE NEEM EMME UENO NMHEMOMM MMMM 
c 
Cc FIND INVERSE<RZ> &@ FEEDBACK GAINS 
E 
CHM ee te 
224 CALL LINVIFS CRIMI. LS-RIINV. 1 WAREAS, LER) 
HO 962) <a) 1.M{ 
90 95 K€ = 1.Ml 
95 RIINVC(J-K) = DCMPLXCRIINVIS.K)-0.90) 
CMATML(RIINVC-UTVC.MI.MI-eNI FC) 
Y FO iF OTRPER THAN FULL STATE FEEDBACK 
Batre ds tiGar oO: 2c 
RAT | CALL CMATML(FC-CINVCCeM1.N1. LRANKC-FCZ) 
CALL CMATML(FCZ.COTC.M1L. LRANKC-LI-FC) 
228 LE Lie ==0 cee soUry ..8 
Car c32 3 1-L1 
pO 232 K = 1-M1 
PCS(K.J) = FOCK.J) 
es DC(SeK) = DCMPLX(D(J.K)-0.00) 
CALL CMATML(DC.FC-LI1-M1-L1-DCFC) 
oo gas ae Tell 
Gevcss K * eh? 
es DEFECT Cn) = UNITYECI.«) + OCFCCI.«K) 
CALL LESTIC(BDCFCIL.LI-1O-UNITYC L1.-10-0.WA- IER) 
CALL CMATML(FCS-UNITYC-M1-LI-LI.FC) 
BO 234 J = 1-.Nl1 
DG 236 K = 1.NI1 
24 UNITYC(J.K) = DCMPLXCUNITY(J.K).0.B0) 


MYEUMMNM EMT MNKM ROH EMM M KM ee a a te te Oe Od Oe te ee 
» 


Oo 

L¢ 
oO 
ao 


td 


i) 


2 
Cc 
c 
Cc FLAG USER IF CCMPLEX FEEDBACK GAINS ARE COMPUTED 
Cc 


165 


OPER UCCICISCTOOSCOOOOCOOOCOCCCOOOCOCOOOCCC COCs re rere rere 
ge DO 220 J = 1leMi 

DO c20 K = 1-LI 

TIMAG = DIMAG(FC(J-K)) 

IF (DABS(TIMAG).GT.1.0-06)GOTO 22 

GOTO 2c 
col X 2 DIMAGCFC(S-K)) 

WRITECE+CfLIIIeK x 


Aad FORMAT(/SX,'*¥4" WARNING! FC’,I2,'.’+I2e’) HAS AN www’ SSK, 
1 ‘uses [MAGINARY PART = '-EI2.5./5X, 
7 ‘ween EIGENVECTOR MATRIX MAY BE [LL CONDITIONED wane’, / 
? 
a) 


oo CONTINUE 

ETT TITITITIRTICLCILIC TCT LOEreTiricerererccrecrrrrrerrrrrcrrrrerererrrry 

C 

c SORT OUT REAL PARTS OF © MATRIX 

Cc 

ETT ETICCTIOCC LETC TIOCTOOCOCOCTOOOCOOOCEOCOSTOCCOCCICTOCTOCTCCOCTOCOC OSS ae 
COLLss J) sei 
00 132 K 2 1-Ni 

ore F(d»K) = OREALCFC(J.K)) 

c WRITE(S6.100) 

cdo FORMAT(/SX,' wee F MATRIX RESULTS FROM KAUTSKY ALGORITHM «HH#*,/) 

e DO 110 [ 2 1-Ml 

c WRITECS-1LZOICFCI-4)-J= 1N1) 

Coo FORMAT(1X-6(E10.3-1X)) 

C10 CONTINUE 


Cc FIND MINIMUM SINGULAR VALUE IN FREQUENCY RANGE .01 = 100 R/S 
CALL SVACA.3-C-De Fe UNITY «NI M1 LI oe SVM» SVMAX. SVM] »SVMAX1. IFEED) 
Xl = 20.00 


DO ¢30 I = 1-290 
IFCSVM(I).GT.X1LIGOTO 230 
SMIN = SVMCI} 
Fe WET) 
x1 SMIN 
230 CONTINUE 
WRITEC6.240)SMIN.X2 
aa0 FORMAT(/SX.’ #444 MIN S.V. OF RDM 2 '-El1l2.5-° wunw’./5X, 


nb 


1 “Mea FREQ. OF MIN. S.V. 2 °«E1S.S." “unn®. 75x, 
Ps "ete ENTER M1" TO OPTIMIZE THE S. Ven sS4* sone 
3 ‘wa eA ENTER "2" TOUERET VEC. wun? , /) 


READ(*.10SO0)ILOQG 
IFC ILQG.EQ.2)GOTO 133 


Cte tee eee ee ee ee eee eee eee eee eee eee eee 


Cc 

Cc SET UP OPTIMIZER CALL FOR MINIMIZING MULTI-VARIASLE 

ce KALMAN [NEQU4LITY FOR R = I[ODENTITY. ONLY SUILD ONE 

Cc DESIGN VARIAELE VECTOR AND UPPER/LOWER BOUNO VECTOR 

Cc PER COMPLEX EIGENVALUE: PRESENTLY’ ONLY REAL CASES ARE HANOLED 
Cc 
c 


PUR COPECSCOCOOCOSECOCCCOCCOCOCOCCCCSCOCOCOCCOCCOCCOOCOCCOCCOCOOCSCOOOCOOCCOOO. CLS TT 

CALL FRICMSC’CLRSCRN °) 
WRITE(6-245) 

245 FORMAT(/SX.*s*4e ENTER NO. OF [ITERATIONS DESIREO FOR ADS sH44', 7) 
REAO(*, LOOCINITER 
CALL FRTCMS('CLRSCRN ') 
WRITE(6.246) 

246 FORMAT (/SK-’ «44% ENTER MIN. S.V. TOLERANCE FOR ADS “44H? ,/) 
READ(*,. LOZ0ISVTOL 
CALL FRICMSC('°CLRSCRN ‘) 


INFO 3 0 

ISTRAT = 1 

IopT = ] 

TIONED = 2 

NCON = NI 

IGRAD = 9 ; 
IPRINT = 2200 

NGT = 0 

NRA = 10 
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NCOLA = 10 
NOV = O*NI «NI 
IY = Ni = Ml 


ITER = 0 
c SPECIFY ELGENSTRUCTURE 
Cc NCRMALICE ZIGENVECTOR MATRIX FIRST 


CALL NORM(V->N1) 
30250 .; @ ton] 
WRITE(®.255)1 ; 
<55 FCRMAT(//5X.*«se4 ENTER NO. OF ELEMENTS OF EIGENVECTOR ‘.12-'° “ues 
1'./5X, wees WRICH ARE ARBITRARY. wenee is) 
250 Fesok ts. O50) [E EMCs ) 
wall FRTCMSC‘CLASC=N °) 
bo 2$0 i = 1-Nl 
MRIVECo-LOCLILIELEMCi).« Tf 
<60 READC*.1CCLCIROW( ST) Sel. TevLemM()) 
Call eRecCMS © CERSERN ©) 
C SET SCUNSS 
ARITECS.1003) 
ROAO(4S.[CL20)UR 
WRI TE(6.1004) 
READC#.1920)UC 
CALL FRTCMSC'CLRSCRN ') 
1={UR.NE.1.€*95)GOTO 200 
UR Oe ee te. 
200 LE CUG ENE SS se*Os)GCTO 210 
ie 299. ta¢cl 
210 WRITE(6-1010) 
wer aCoe 1 Dl} ) 
READ(«. 1920 JEPSR 
WRITECS-1912) 
READC*.1020 JEPSC 
CALL FRTCMSC(’°CLRSCRN °) 
Cc WRITE(6-219)UR-UC.EPSR.EPSC 
cI? PORMAT(/S5X,.°UR = °.E12.5./5X.°UC = '.€12.5-/5X.°EPSR 
C i 7 Skee ePoC 2° -e 12.5 ) 
dys t 
CO 330 If = 1.NI] 
pO 330 Js = I1.-NI 
DGeceu nes le f2LEM{( 11) 
iFCSS.EO.LROW(KK.LL)IGOTO 32 
320 CONTINUE 
GOTO 240 
~e VUBC(J) = UR 
VuUB(CJel) = UC 
VL5(0J3) = UR 
WAG CHS) FP oulles 
pase tae a. Jars 
GOTO 32 
240 X = DREALCVOJJ-11)) 
vo = O©MAG(V(SJ.T1)) 
VUB(JS) = SNGL(X) + EPSR 
VUBCJ*1) = SNGLOY) + EPSC 
VL38(J) = SNGLOX) - EPSR 
VLSCJ*1) 2 SNGLCY) = EPSC 


i 
m 
~ 
ts 
uw 


le ye Res 
AU) CONTINUE 
Gc DEFINE CONSTRAINTS AS LINEAR INEQUALITY 


30 325 1 = 1-NCCN 
525 10Gi(1) = 2 
Cc SET SOUNDS ON CONSTRAINTS 
WRITE(6.1061) 
READ(*.1029)E1 
CALL FRTCMSC'CLRSCRN °) 
FILL - UR CESIGN VARIABLE VECTOR 


ww O 


DO 245 [1 = 1.N1 
CO 245 KK = 1.N1 
X = DREALCVCKK.1I)) 


fot 


Y = DIMAG(VCKK.I1)) 
XBJUC JJ) = SNGL(X) 
XBUCJU*1) = SNGLCY) 
345 J eee 
c SEBUG WRITE 
IFCINFO.NE.O)GOTO 349 
WRITE(8.348) 
248 FORMAT(/S5X,'*444 ENTESING ADS WITH TRE FOLLOWING “88N'./) 
BDO 346 I = 1-NOV 
WRITEC 5-347 )VLS(1),XBJCI)-VUB(T) 
347 FORMAT(CIOX.3(E12.5-2X%)) 
346 CONTINUE 
c OPTIMISE 
249 CALL ADSCINFO.ISTRAT, IOPT. IONED- [PRINT. IGRAD.NDOV»NCON. XE. 
1 VLS.VUS.COBU.SC.i0G1.NGT.IC]-O0F RA»NRA.NCOLA-WK3.3000.I1WK.1000) 


c EVALUATE OSJECTIVE FUNCTION AND CONSTRAINTS 
IVER = ITER + 1 
JJ 21 
ICONJ = 0 


po 280 {I = 1.NI1 
DO 389 J = 1.NI] 
352 VOJet) = CMPLXCXBJ(JJ). XBUCIJJ*1)) 
750 JJ) o J) & 2 
NCRMALICE EIGENVECTOR MATRIX 
CALL NORM(V.N1]) 
CO Z§1 I s INI 
DO 351 J = I.N1l 
351 VSAVECT.J) = VCI-J) 
CALL LEQTIC(VSAVE.NI+LO-UNITYC.N].19,0-wWaA, (ER) 
CALL CMATML(EIGCM.-UNITYC-NI«NI NI-EVI) 
CALL CMATML(V-EVI-NI/NI/N],VEVI) 
po 3255 I = 1.NI 
BO" 355.0 1,N] 
VOICI«-J) = UNITYCCI.J) 
UNITYC(CI+J) = DCMPLXCUNITY(I.J).0.00) 
255 VMA(I.J) ==DCMPLX(ACT.J),0.00) © VEVICI.J) 
CALL CMATML(UQTC.VMA.M1,.N1]-N1,UTVC) 
CALL CMATMLORZINVC.UTVC.-M1-M1.N1.FC) 


Ti TLe: #77 eye 
c CALL CWRITECV«NI-NI- TITLE) 
C CALL CWRITECYDI.NI -NI.TITLE) 


DO 360 1 = 1M 
DO 360 J 3 1.N] 
360 F(f.J) = DREALCFC(I.J)) 
CALL CNSTRN(N1.GC.XBJ.E.E1+NOCON+A.B-UILTC-EIGD- UNITY. IY, UNITYC, 


1 1FLT) 
CALL SVACA.B.C.F.UNITY.N1 M1 -LI1+We+SVM»SVMAX.SVM1.SVMAX 1 ) 
XL 2 20.90 
DO 365 I = 1.260 


IF CSVMCI).GT.X1)GOTO 365 

SMIN = SVM(T) 

X2 = WO1) 

X1 = SMIN 
365 CONTINUE 

COSJ = SNGL(SMIN) - 1.0 

CALL FRTCMS(°CLRSCRN ') 

WRITEC6.370)CO3J-SMIN.X2,-GC(1)-GO(2)-GC(3).GC(4) 
270 FCRMAT(/SX-°**¥s CBJ = °.E12.5+° wenn’. /5X, 


| ‘www MIN S.V. = '-E12.5-"’ AT FREO = °.E12.5-/8X,. 
= "wae CONSTRAINT 1 = '.E12.5./5X.'*#*4* CONSTRAINT 2 = 
SeE12.5+/5X- "44H CONSTRAINT 3 = '.E12.5-/5X.°44** CONSTRAINT 4 = 


G-E12.5./) 
TFCINFO.EO.0.0R .A8S (COB) .LT.SNGLO(SVTOL) GOTO 91 
IFCITER.GT.NITERJGOTO 91 

366 GOTO 349 


Cc WRITE RESULTS GF KVECT FOR FURTHER USE IN RECONFIGURATION 
Cc STUDIES. 
i. bo 400 [ = 1.N1 


WRITECS-GOLICVOI.J) Jel NI) 
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«ol FORMAT(LX-GEI2.5./1X,GE12.5) 

400 CONT [NUE 
BDO 4I0 [ # [eN1 

410 WRITECS.G91ICELGOM( 2 .J)-Je1.N1) 
DO 415 [ = 1-Ml 

415 WRITECS -GOlICRIC(L JS) J21-M1) 
SO G29 £ = 1 -Nt 

629 WRITECS-COLICUGCCI J) -Je1eML) 
00 430 [ = 1.M} 

430 WRITEC9.GO1 JC FCCI.J) J=1-N1) 
30 435 [ = 1.Ml 

425 ARITECS -GOLICFCLIe-J)-J21.N1) 
RETURN 
END 


Cte Lee ee eee er eee re Cer e eee eeeeeeerereerecrercercrecerrereere 


SUSROUTINE CNSTRN: COMPUTES LINEAR. INECUALITY CCNSTRAINTS 
FOR OPTIMIZING THE 2-NORM CONDITION NO. 
CF THE DESIGN EIGENVECTOR MATRIX AND/OR 
MINIMIZING THE MULTI-VARITABLE KALMAN 
INEQUALITY RELATICN. 


qoeo0nonaanannon 


CHM MEH EHEEMEUEEHENUHUNEEH 

SUERCUTINE CNSTRN(NI].GeX+e-EL -NOCON,A,.8-UITC-EIGD UNITY. 
{ [{Y-UNITYC.I[FLT) 

IMPLICIT REAL <8 (A-H-PHZ) 

REAL“S8 ACIO-10)-8(010.10).-UNITY(I0-10) 

CCMPLEX*16 UNITYC(10-10) ULTCC19.10)-ElLGOC1O) WMIC1O-.10). 
[ 23NC10-10)-WV1ICI0)- wV2CI0)-c1 

CCMPLEX*8 vxX(2C0) 

REAL“S G(20).xXC(100).€.E1.E2 

INTEGER N1.NOCON. LY. [FLT(10).NDV. INDEX 

NDV = 2YNLENI 


c Dean | 

Cc DO § [ = [.NDV=1,.2 

Cc VXCJ) © CMPLX(X(IT)-+X(1¢*1)) 

Les ee 2 JMR ee | 

Cc IFC(NIT.E€Q.2)GOTO 10 

C IFCNL.ES.3)GO790 20 

ies TFC(NL.E2.4)GOTO 30 

es [PCN £0.85 3GCTC 1000 

C [IF(Ni.€9.63GO07O 1690 

c [FON] .EQ.7)GOTO 1000 

Cc IF(NI.E€Q9.8)GOTO 1099 

CYNON O HEE EK EN 
C ORTHOGONALITY CONSTRAINTS 

Cc 

CASH ONT NO EMME 
ca GO1) = CA8BSCVXC1I*VK0S) © VAC2)4VX(G)) -E 

C SOTO 1900 

co GCL) = CABSOVKCLI"VXOG) © VXCLIYVK(5S) © VXC3)4VX06))-— E 

c GC2) = CASSCVXC1LI*VXC7) © VXCLI“VX(8) © VXCLIWVXC9) )= E 

c GC) = CABSCVK(G)4VK07) © VXCS)4VK(8) © VXAC6I"*VK(9))=- E 

C GOTO 1009 

co GOL) = CaBSCVKC DTI ¥VK(S) © VX(2)"*VK06) © VXC3)"VX07) © VKOG)*VX(8) 
c 1 J= & 

C Glo) * GCABSCVACTINVXC9) * VXC2)4VXC10) © VXCS)"VXC11) @ 

5 l VX(G)4VX(I2)) - E 

C G(Z) = CABSCVK(LTIWVK012) © VXC2)8VKCIG) © VXC3)“VxK(15) © 

c 1 VXC4)"VX0i6)) = E 

Cc G(G) 2 CABSSCVX(5)4VX09) © VXC6I"VXC10) © VXC7)I"VXC11) © 

Cc L VX(8I4VX012)) = E 

Cc GCS) = CABSCVK(5)<VXC13) © VXC6I8VKC16) © VXC7IYVX(15) + 

Cc l WACSI“VXL16)) = E 

c G(6) = CABSCVX(9)*VKC12) © VKCIOI*VKXC1G) © VXCIII*VACIS5) © 
Cc l VXCLO*VX(16)) - & 


SS e ee ANNE 


oOo ¢ 
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c 
Cc 


ORES ESSOUSSOOCE CCE CE eee eee leit ree tee ee Le 


1000 


31 


(C0 Mt Mt 00 Wt Ot 94 4 00 eG Oe Oe Oe One Ot 


19 


30 


50 
1000 


eee eee eee RE EeePC ER CR EERE ESE EES £ 


o0o0on0gq06dUmnmmmcvandlUmN 


Oe eee ee eee eee Peer ere ee EO EECOEOCOEOECOOCOCCEEOOCECECOCOOCOOOC OS CT ee 


ALLOWA8LE SUBSPACE CONSTRAINTS 


LL = 1 
KK = 1 
70 31 { = IeNl 
21 2 EIGOC(T) 

DO-32 J 1 Nl 

COG. ak L.N1 

WMI (JK) = DCMPLX(ACJ.K).0.D0)} = ZI*UNITYC(J.K) 
CALL CMATMLCUITC.WML IY ¢NI®N1-&N) 
JJ 2 1 
INDEX = | 4 Nese 
DO 25 LL = KK,» INDEX=-1 ,. 2 
WVL(JJ) = CMPLXCACLL)-ACLL*1)) 
I Re a 1 

CONTINUE 
KK = INDEX ¢* 1 
CALL CMATMLORN-WV1L,SIY-N1>o1)-eWV2) 
Yl = 0.50 
OO 36 [I = 1.1Y¥ 

Yl = Vl €Osecstuveti ti 
GCl) = SNGL(Y1) - El 

CONTINLE 
RETURN 
END 


SUBROUTINE CCNTRL: DETERMINES CONTROLLABILITY OF COMPLEX 


O-LOOP EIGENVALUES 


TORE REP SE EPO EE RCE CECE OC EERO UR CECE RE CCE E OCC C ESE eee 


SUBROUTINE CCNTRL(A-B-UNITYC.NI-ML-ICTR-EIGeI1) 


IMPLICIT REAL <8 (Aer, P=o) 
REAL“B8 $(10)-4(010.10)-8010-10) 


COMPLEX¥15 UNITYC(10-10)-WMC1(10-10).-WMCO(10-10)-WMC5(10.10). 
LETG(10)-WMC4(10.10)-WMC5(20.00)-21-22,235-U(10-10)-V010-10) 


INTEGER NI-M1-ICTR(10)-I1 
al. * £9611) 
DO 10 J = 1-NI 
WMC1(J-J) = ZINUNITYC(JS.J) 
oOe50 = snl 
DO 20 K = 1.Nl 
WMCS(J-K} = WMC1(J-K) - DCMPLX(A(U.K).0.00) 
WMCZ(J-K) = UNITYC(J-K) 
CALCULATE SLAMDHA (1) 
DO 30 J = 1.-NI1 
DO 29 K = 1.NIl 
WMCS(J-K)] = WMCI(J-K) 
DO 40 J = 1,N} 
DO 40 K = 1-Ml 
WMCS(J+K*N1) = DCMPLX(BCJ.K)-0.00) 
CALCULATE RANK OF SLAMOKHA 
TY = Mile Nil 
CALL CSVDO(WMCS,10-10-NI1.IIT-O-N1L-I1.S-U-V) 
IF(S(N1L).LE.0.D0)GNTO $0 
(SIO) a il 
GOTO 1000 
ICTR(I1) = 0 
RETURN 
END 


SUBROUTINE CWRITE: WRITES OUT A COMPLEX MATRIX FOR 


I8M 307B TERMINAL 
A = INPUT COMPLEX MATRIX 
IRA=ROWS OF A: IRC=COLUMNS OF A 


SUBROUTINE CeRITECA-IRA-ICA.TITLE) 

IMPLICIT REAL *S8CA-H-P=-2) 

COMPLEX"15 AC10.19) 

INTEGER [RA-ICA 

CRHARACTER“80 TITLE 

WRITE(CS6.5) 

FORMAT ( ZMH MMMM HH OMEN MMMM MMMM HH | 
aete (99677 11S 

FORMATO /.1AG) 

oe 10 J = 1.-IRA 

WRITECS -COCACIK)-K = 1-ICA) 

FORMAT (8(&8.1,1%)) 

CONTINUE 

ARITE(S.5) 

Cc RETURN 
Cc END 


CEH HCE EHH EEE OUMNH HE HHO EMME EEE MH HEME NYE MM 


ono naononanonannnanann 


ono 0 
o a 


* 


Cc SUBROUTINE COND: FINOS 2 = NORM CONOITION NUMEER OF 
Cc A SQUARE COMPLEX MATRIX 
Cc 


Mere eee COPE ee eee ee Cee eee eee Eee ere rere rerrereeeereererrererrrreerery 
SUBROUTINE CCNO(Z.N1,XCOND) 
IMPLICIT REAL “8 CA-H.P-2) 


COMPLEX*16 2610-+10).U2(10-10).Vl010-10)-UNITYC(10.10),.CSAVECIO-10) 


Tree oe lO). ¥IZCtO.10)-21 
REAL “8 Si C10).S52010).WaAC10) 
INTESER Nl 

Pit ielauGe MATRICES 
po 5 f = 1,19 
S1CIJz2 0.00 
Sams) 0).00 
WACI) = 0.00 
oo § J = 1.190 
<1 = (0.00.0.00) 
UlCl J) al 
VZETe3) 2 21 
UNITYC(I.J) = 21 
CSAVE(I,J) 2 21 
UlSCl ed) 
Vivei@la ss) 
5 CONT I NUE 
06 19 { « 1.Nl 
UNITYC(I.1) = OCMPLX(1.00-0.00) 
90 19 J = 1-Nl 
SSAVECT J) = ICT) 
10 CONTINUE 
CALL CSVO(CZSAVE-10-10.N1.N1-Q-NI.N1.S51-UZ2-VZ) 
XCOND = SICTI/S1(0N1) 
RETURN 
ENO 
CHAAR EHH MMMM MM MMMM 


c 


0 


iy 
fs 
~~ 


a 


j& SUBROUTINE NORM: NORMALIZES THE COLUMNS OF A COMPLEX MATRIX 
‘es SUCH THAT FIX ItIl = 1.0 
c 


C¥H ERATE MEE EHH HEHE MENON MEOH 
SUBROUTINE NORM(A.IN) 
IMPLICIT REAL “8 (CA-H.P~2) 
COMPLEX*16 AC10-10) 
INTEGER IN 
00 10 J = L-IN 


X = 0.00 
00 20 I = 1.IN 
padi) X = KX * DOREALCACT.-J))*"2 © OLMAGCACI.J))*#2 
00 10 [ = 1-IN 
10 ACT.J) = ACT.JI/OSORTCX) 
RETURN 


END 


ea 


C4 9 94 9 4 OS Od dd SOOO 
C 
fe SUBROUTINE RESULT: WRITES EIGENS RESULTS ON FILE 08 
C 
CHEM AM NM EM EMU EE ES UHEEMHM 
SUBROUTINE RESULT(A.B-C.F.FDEL.BDEL.26-25+L1-M1 ND) 
IMPLICIT REAL*B(A-H.P-2) 
REAL“B AC10-10).8(16+10)+C(10+10)-F(10.10).FDEL (10-10). 50€L(10-10) 
COMPLEX416 26(10+10)+25(19) -FCC10+10) 
INTEGER L1-ML-N1 
WRITE(B.900)LL+MLeNI 
Do 10 eesti 
10 - WRITE(8.1900)(ACL J) +J=LeND) 
DO 20 I = INI 
20) 0 WRITE(B.1000)(BC1.J)+JsleM2) 
Do 30 1 = lel! 
30s WRITES(B+1000)(C(1-J)+J=1-N1) 
po 40 t= 1.1. 
460 WRITE(8.1000)(FCL+J)eJ=1eL1) 
pO 50 1 = 1wNI 
50 WRITE(B.1100)(24(1-J)-J21.N1) 
DO 60 I = 1.N1 
60  WRITE(B.1000)Z5(1) 
" 0G)-61 Meer ae 
61 WRITE(B.1000)(FDEL(I-J)-JeL NL) 
Do 62 1 = 1.N! 
62 - WRITE(8-1000)(BDEL(I+J}eJaleM1) 
990 FORMAT(SI2 
1900 FORMAT(1X.0€12.5) 
1100 FORMAT(1X.0£12.9-/1X-6E12.5) 
RETURN 
ENO 
ORE eee eee eee eee ee eer 


Cc 


Cc SUBROUTINE RANKD: ANALYZES REQUIRED STRUCTURE OF RANK DEFICIENT 
Cc MATRICES 
Cc 


CHEM MMMM MMMM MMMM 

SUBROUTINE RANKO(ES,»UT»+SeNoMeUOTC,UITC.-ROINVC. IRANK.-BGI ) 
IMPLICIT REAL*3(A-H.P-2) 
REAL*8 BS(10-10).,S5010)-SM010.10).RIC10-10)-RIINV(I19-10). 

1 UCLO-10)-UTC10.10).VTC10-10)-S1010) +WK(50).SMI(10-10)-WAREA(200) 

2+BGI(10.10)-CG1(10-10).55M(10-10) 
COMPLEX“16 RZINVC(10-10).U0TC(10-.10)-U1TC(10-10) 
INTEGER N-M, [RANK 


[RANK = M 
DO 1 f = 1-10 
COM = oo Ils) 


BSTI(I.J) = 0.00 
Ro(T.J)°= 0.00 
RZINV(I.J) 2 0.00 
YOTCC Ted) = 60. 00.0).00) 
UITCCl ed) = (O°CG.0 250) 
REINVE(I.J) = (0.00.0.00) . 
UCI.-J) = 0.00 
l VT(T.J) = 0.00 
Does tl = 1.56 
WwKCI) = 0.00 
OOS f=) lM 
ECS GieleGimaOO On GOlmOms 


ft) 


IRANK = [-] 
GOTO 4 
CONTINUE 
3 0O 30 I = 1.N 
DO 30 J = 1.N 


SM(I4J) = 0.00 
20 UCT.J) = UT(J.T) 

DO 40 1 

00 40 J 


1.N 
Le [RANK 


ie 


40 UOTCCJ.1) = DCMPLXCUCL.J).0.00) 


DD 50 I * t.N ; 
3D 50 J = IRANK * IN 

§0 =: UITC(J=IRANK.I} = DCMPLXCUCI6IJ).0.00) 

c DD 60 I = 14M 


0D 60 I = [-IRANK 
DO 560 J = 1M 


60 Vite J) = 253,11 

c wRITEC6.1900) 

C000 FORMAT(/5X.°U MATRIX’.7/) 
C CO 1020 I = 1.N 


COTO =wWRITE(6 1050) (UCL. J) -Je1.N) 
S020 4 FORMATCIX.60CE1IZ.5-1%)) 


C WRITE(6-1C040) 

CS460 FCRMAT(/S5X.°S MATRIX’ ./) 
Cc 00 1050 [ = 1I.N 

CCSO arRirele.1050) SCI) 

Cc wRITE(661960) 

C0560 FCRMAT(/5X.'V MATRIX'. 7) 
Cc CO 1070 I = 1.M 


CO70 WRITECS.10Z0)(BS(I J) -yel.M) 
00 79 I = 1,.IRANK 
79 oMCIe ti = Stl) 
CALL VMULFF(SM.VT»IRANK»M»M-I0-10-R2.10-IER) 


C aR ITTECS.cS00) 

C999 CRMATC/5X.°RI MATRIX’ ./) 

C DO 2O10 i = I. TRaNK 

COIO WRITECS6.1030)(2R201.J).J21.M) 

Cc TOL = 0.00 

C Cal. LGINFOCRD.10. TRANK»M.-TOL.RZINV.10.5i-WK, IER) 

Cc WRITECo. 3000) 

Co0o FORMAT(/5X.,’444s SIGMA MATRIX PRIOR TD INVERSION wave’, /) 
C WRITECH+SOZOIC (SMO IT.J) Jel. LRANK).I=1,.IRANK) 

C CALL LINVIF CSM, IRANK.10,SMI.0,WAREA, IER ) 


DO 3901 [I = 1.ITRANK 
$001 SMICI-I) = [.DO/SM(I.1) 


C WRITEC5»4600) 
CO00 FDRMAT(/§5X,’s4uw SIGMA MATRIX INVERTED wews',7/) 
Cc WRITE CS + SOSOICCSMICI.J).Jsl., IRANK)» [21.IRANK) 


COl9 = FPCRPMATCIX-3(E12.5.1X)) 
CALL VMULFFCES,.SMI.M-ITRANK, TRANK.10,-10-RZINV.10,IER) 
DD BO I = [.M 
OD 80 J = 1.I1RANK 

BO RZINVC(I.J) = OCMPLXCRZINVIT.J).0.00) 
CALL VMULFF(ES-»SMi.M.IRANK. [2 4NK-10,10.-85M.10-IER) 
CALL VMULFF(ESM-UT-M,iRANK»No10-10-BGI-I10.,iER) 


RETURN 

END 
CIEE ESE EEE UN 
Cc 
Cc SUBROUTINE FEEDEF: CALCULATES FEEDBACK GAINS FOR RANK DEFICIENT 
C B AND/OR C MATRICES VIA FLETCHER, ET.AL. 
Cc 1°85 


Cite OU E 

SUBROUTINE FEEDEF(A.B-C.V.VDI-EIGOM-3GI.ULTC.CSI.NM.L-LY. IFEED.FC 
1) 

IMPLICIT REAL*B (A-H,P=-2) 

REAL“B AC10-10)-5010-10).C(10.10).-BGI1(10.10).Cw(10.10). 

CGI(10.19)-CSOS(10),TOTESC19).538(19)-SC(10)-WK (200), 

CT(10.10)-CTA(10-10).-CTUTC10O.10),-SCTC(10).CTGiC10-10)-WwK1(200), 

WACTO) CO8J-COSUR -CCBJL» WEILSGHL.» WEIGHR.WORK(20) 

COMP_EX*16 AC(10.-10)-8C(10-10).CC(10-10)-VC10.10)-FCC(10.10), 

1 O0OC190.10).S0610-10)-DQN(10.10)-TOTC19.10)-TOTACIO.10) CQOT(IO.10). 

2 yoClO.10)-ACS(10-19)-SOD(IO-10)-8V0(10,10).-BICC(IO.19).CIC(I0.10). 

3 €50(10.10).-TOTEC1O.10).CSUC(10.10)-CSV(10.10).TOTBUC1O.10), 

4 

= 


ow ff) = 


TOTBVC1C.10)-CSOSC(10-10).T073SC(10.10).CSUT(10-10).TOTBUTC(10-10) 
-CSVCl10.10).CSO2(10.10),TOTESSSC10-10)-TOTSIC1O-10).-WM1(10.10). 
6 WMOC10.10)-WM3(10-19)+-WM4(10.10)-WM5(10.10).WM5(10.10).WM7(10.10) 
7ewMBCIO.LO).AM9(C10.10) -WM1OCLOLO)+«WML1C1O+-l1lO)omMIZ(10-10), 
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8 WM13(10-.10)+-WM14(10-10)-2-EIGOM(10-10)-8CS(10-.10) ,CCC(10-10). 

9 TOC10.10)-VDI(C10-10)-SCMP( 10,10) -CCMP(10.10).CCSS(10.10) 
COMPLEX"165 CSOMP(10,10)-AM15(10,10).TTBSCi0.10).-TOTMP(10.10), 
WM1LSC10-+-10)-AMMI17010-10)-AMIBC1O-10)-AMIOC1O-.10) -AMO1(10-10).- 
AMOOC104-10) ULTCO1O-10)-CTITCC1O0-.10)-CTOTC(10-10)-CINCTC( 10.10). 
AML(10-10)-ATML(10-10)-RNC10-10-10)-LNC10-10-10)-7(010.10). 
VACTO+1LO) -AMOZC LO. LO) eMMOG (10-10) -WVR(10) WVL(10)-€3(10,10). 
NMRO10.10)+NML610-10)-RCBIC10)-LOBIC10)-UNITYC(10.10). 
YOTC1O.10).-VOC10-10)-FCT(10.10)-FCS010.10).5CFC(10-10), 
BCFCCC10-19)-CLUMC10,10)-EVALUC1O)-EVECT(10-.10)-VI(10.10). 
VEC10.10).VEVC10-10).VMAC10.10).8V010-10)-FCG(10.10).U1C(10.10) 
REAL*4 OBJ-X(50).VLE(50)-VUB(50)-RA(00-40).G(1).-DF(09).wK2O (4000) 
INTEGER NeM-L-IFEED- [Q+IN- IRANCT.1Y-IWK(1000)-INFO.IDG(1)-IC(10) 
ARITE(6+10) 


ona Ww HR WH Fa & 


10 FORMAT(/SK,° ees PRESENTLY IN FEEDEF. SINCE RANK(C) < N. ENTERVewe 
1°./5X. taeun SJESIRED DIMENSICN OF ©.H. EIGENVECTCR Set FORse=™ 
2’ /8X. ‘wane SPLIT EIGENSTRUCTURE COMPUTATION. en 
$57) 


READC*.15)10 
15 FORMAT(i1) 
CALL FRICMS(’°CLARSCRN °) 


IN = N = IQ 

Cc INIT MATRICES 
UO 11 I = 1-10 
SOs(1}) =, 6.06 


TOTSS(1) = 0.D0 
SCT(I) = 0.50 
WaCi) = 0.00 


WVLCI) = (0.00,0.00) 
ROBJCI) = 0.00 


LOBJ(I) = 0.00 
DO 11 J = 1-10 
< = (0.00,0.00) 


AC(I,J) = 2 
SCtlaJ)- = c 
CC(IeJ) sO 
CW(I-J) = Q0.D0 
CT(il.J) = 0.00 


CTAHCI«J) = 0.00 
CTUTCI-J) = 0.00 
TCIs J) 32 
VAC1l.J) s 2 
WMOSCILI) # 
WM424(I.-J) = 
MMROI.J) 
NMLC1,J) = 
COtt.J) 
SOC1.J) 
DON(I.J) = 
TVOTCI-J) 
TOTACI.J) 
DOT(I.J) = 
VOCIeJ) = 
ACS(I.J) 
SODC(I.J) = 
BVO(I.J) s 
BICCI.J) a 
UCTCI+J) = 
VOCI.J) = 
CICUl vi) c= 
CSOCI.J) = 
ThOhe (iJ = 
CSUCI.J) 
Cove 
TOTBUCTI.J) 
TOTBV(I.J) =2 
SOSC(I.J) 22 
TOTSSC(1.J) = 2 


NM Pa 


“oo 
“ i) r} i] 
Pa oN 


NM FANN fd f2 ON NON fy 


N 


fifi 8 MON 


t 
N 
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CSUT(I.J) = Zz 

TOTSUTCI.J) 

CSvC(I+J) = = 

UNiTYC(I-J} = (€0.00.0.00) 
ae CONT {NUE 


1) 
Lo | 


c SUILD CONSTANTS 
iNFO = QO 
WEIGHR = 1.99 


WEIGHL = 1.00 
BG if 1 = Ie 
UNITYC(CI.I) = (€1.00.9.50) 
SOelees =.) 0N 
Telos) = VDIC(I«1) 
Ne AC(I-J) = DCMPLX(ACI.J).0.00) 
00 13 I = 1.6N 
OO [2 °J = 1.M 
13 BC(I.J) = SCMPLXC(BCI.J).90.90) 
oO ls if # 1.L 
00 146 J = 3.N 
CACI.J? = CCl.J) 
1G CGtivd) a DGMFEXtCCCl.J1,0.00) 
c CHECK IF LEFT EIGENVECTORS ARE MEMBERS OF N(C1¥*T#(A-LAM¥I }) 
C FIND SVD CF Cet 
DOed0 1 = iek 
09 200 J = I-N 
muri. i} 2 1.00 
CHAGIen cs soGlhew) 
<90 CrtJ.t) = CCl.) 
CALL LSVDF(CTW.LON-L-CTUT.-LON-SCT.»K1,1ER) 
CALL RANKDO(CTW.CTUT SCT «N-L-CTOTC -CTLITC.5INCTC. L[RANCT.CTGI ) 


Cc 
C BUILD NULL SPACE OPERATORS FOR B AND C¥*T 
C 
DOP ore = 1.N 
0 205 J = i.N 
00 205 K = 1.N 
AML(J+K) = AC(J.K) - ELGOMC(IL+LI*UNITVYC(J.K) 
-05 ATML(J.K) = AC(K.J) ~— EZEIGOMCI.LI*UNITYC( U.K) 


CALL CMATMLCULTC. AML + LYNN WMOD ) 
CALL CMATML(CTITC.ATML» N=I[RANCT»N»N+WMOG ) 
CO 206 JJ = 1-1¥ 
DO 206 XK = I.N 
UICCXK.JJ) = UILTCCIS+KK) 
2c6 RNCI+JJeKK) = WM2S(JIU+KK) 
CO 207 JJ = 1-N=IRANCT 
vo 207 KK = L.N 


207 UNCIT.JJ+-KK) = WM26(JJ-KK) 
10 CONTINUE 

C 

Cc FIND OBJECTIVE FUNCTION 
Cc 

OB COBJ = 0.00 


cogsR = 0.D0 
CoOBJL = 0.00 
TEQNIG =o ~* 
EOuceu f 2 1.N 
IFCICONJG.EQ.1)GOTO 219 
DO 225 K = 1.N 
Y = JIMAGCEIGOM(I.1)) 
1FCVv¥.£90.0.003GOTO 209 
IFC(K.NE.NIJGOTO 209 
ICONJG 2 1 

209 WVR(K) = V(K.T) 

rigr AVL (CK) = T(K.1) 
OO 226 JJ-* i.fy¥ 
OO 220 KK = 1.N 

225) NMRCJJ-KK) = RNC I-JIKK) 
DO 227 JJ = 1.N-IRANCT 
DO 227 KK = I.N 


kid 


ao NMLOJJ-KK) 32 LNCI/JIeKK) 
CALL CMATMLONMR WVR-IYeN. 1 ROBJ) 
CALL CMATMLONML -WVL-N=IRANCT-N-1-LOBJ) 
DO 300 JJ = 1-1Y 
300 COBJR = COEJR + CDOAES(ROBJ(JJ3) 
00 301 JJ = 1sN-IRANCT 
301 CCB8JL = COBJL * CDABS(LOSJ(JJ)) 
GOTO 220 
roils ICONJG = 0 
Gao CONT INVE 
COBJ = WEIGHR*CCBIR + WEITGHL*COBJL 
O&J = SNGL(COBJ) 
IFCINFO.EQ.1)GOTO 2461 
wRITE(6.230 JCOBIR .COBJL 


t> 


230 FORMAT(/5X.° 4s" SUBSPACE COMPATIBILILTY TEST PERFORMED. ««ux', 
1 /SK, tween RT SUBSPACE RESIDUAL = '.E12.5.° «umn, 
/SX,*eeun LT SUBSPACE RESIDUAL 3 '.E12.5. ' «mma, 
/5X.'4eee ENTER “L" FOR ADS MINIMIZATION anaes 
/5X,*weue ENTER "2" IF SUBSPACE RESIDUAL OK. wean, 


uw oO WH ty FH 


) 
READC¥ +eQ2SLIIMIN 
1 FORMAT(1I1) 
CALL FRICMS('CLARSCRN |) 
IFCIMIN.EG.3)GCTO §10 
IFCIMIN.EO.2)GOTO 16 
WRITE(5.250) 
260 FORMAT(/5X.°4* ENTER WEIGHT FACTOR FOR RIGHT EIGENSTRUCTURE «°./) 
REAO(*.237 JWEIGHR 
WRITE(6.261) 
261 FORMAT(/5X."4" ENTER KEIGHT FACTOR FCR LEFT EIGENSTRUCTURE *4°.7) 
READ(C%.237 JWEIGRL 
CALL FRTICMS(C'CLRSCRN °) 


CYHHHEME MMM 


cs 


c 

c OPTIMIZER CODE FOR LEFT AND RIGHT SUBSPACE ROMTS 
c ONLY BUILD ONE DESIGN VARIABLE VECTOR AND UPPER/ 
Cc LOWER BOUND VECTOR PER COMPLEX EIGENVALUE. AFTER 
c OPTIMIZATION. INVOKE CONJUGATE VECTOR ROMT. 

Cc 

c 


Sue Mee ee Et ee ee ee te ee eh 


32 STRAT = 0 


IcPT = 3 
TIONED = 1 
NOV = 2*N“N 
NCON = Q 
IGRAD = 0 
zPRINT = 1000 
NGT = 10 
NRA = 10 
NCOLA = 10 
C SET SOUNDS 
sf WRITE(6.255) 
225 FORMAT(/5K.' “4 AN ACCEPTABLE SET OF R.H. EIGENVECTORS «4uw',/5X, 
1 ‘umm HAVE SEON COMPUTED IN KVECT. ENTER ABS “44°. /5X, 
2 "s44" VALUE OF ELEMENT TOL. TO SATISFY Loh eee ee on 
3 "wae SUESPACE REQUIREMENT, www, /) 


WRITE(6+236) 

236 FORMATC/SX. ‘ewe REAL TOLERANCE 
REAO(*.237)ER 
WRITE(5.23B) 

238 FORMAT(/5K.° 44" IMAG TOLERANCE 
REAO(™.237)8! 

wou FORMAT(F12.5) 

CALE ERTCMSC CERSGGRN ") 

c BUILO DESIGN VARIAELE VECTOR ANO UPPER/LOWER BOUNO VECTOR 

229 JJ = 1 
ICONJG = Q 


ween’, /) 


wuunt ys) 


176 


/5X,'4umw ENTER "5S" 1 YOU DESIRE TO USE PREVIOUSLY wan’. 
/SX.'mwns OPTIMIZED RT AND LEFT EIGENVECTOR SETS.  «*™n'./ 


ft) 
iN 
™“ 


ae 


DO 240 KK = 
IF CICONJG.EQ.1)GOTO 242 
Boeeso CL = 1.N 


1.N 


RX = QREALCV(LL-KK)) 
CX = DIMASCV(LL-KK)) 
Y = DIMAGCEIGDM(KK KK) } 


[FCY.£Q.0.50)G07TO 280 


TF(LL.NE.NIGOTO 280 
NOV = NDV - 2*N 
iCONJG = 1 
KX(JJ) = SNGLOIRX) 
K(JJ°1) = SNGL(CX) 
VWUSbs)) 2 X€J0) © &R 
VLBS(JJ) = K(JJ) - BR 
1=(CX.NE.0.00)GCTO 286 
VU3S(JJ°1l) = 0.0 
VEStIJJ-1) = 0.0 
GOTO 738s 
VUSiCoS Nema e Ss. 
VLBCJJ*e1) = XCJJ*1) - Bl 
[6CJo i= 0 
Ic(JJ*°1) = 0 
Detia) = 0. 
DetJJeli = 0. 
GeTe 265 
ICONIG = 0 
GOTO 240 
SH) 8 Su) 
CONTINUE 


CALL ACSCINFO. STRAT. OPT. IGNED. 122 INT. I GRAD.NDV.NCON. X-VLS. VUE, 


1 CEJ.G+ I1D0GsNGT« IC. OF «RA NRA+NCCLA+WKO -6000- IWK. 1000) 


EVALUATE OSJECTIVE FUNCTION 


JJ = 1 
iCONJG = 0 
DO 2465 <K = 1.N 
IFCICONJG.EQ.1)GOTO 243 
DO 2465 LL = 1,N 
IF COIMAGCEIGOM(KK «KK)).EQ.0.D00)GOTO 246 
IF(LL.NE.NIJGOTO 246 
TCCNSG = 1 
V(LLeKK) = CMPLK(X(JJ)-4CJJ°1)) 
VWCLL KK) = VELL. KK) 
GOTO 2438 
OO 266 LLL = 1.N 
VC(LLL.KK) = DCONJGCV(LLL.KK=-1)) 
VWCLLL KK) = VELLL.«K<) 
:CONJG = 0 
GOTO 245 
JJ 3s JJ * 2 
CCNT INUE 
CALL LEQTIC(VWON-LO-UNITYC.N.10.0.WA,. TER) 
DO 2467 KK = 1.N 
DO 247 LL = 1,N 
TILL KK) = UNI TYC(KK.LL) 
CO 250 KK = 1.N 
DC 250 LL = 1.N 
UNITYC(KK.LL) = (0.00.0.00) 
OC 252 KK = 1.N 
UNITYC(KK,<K) = (1.09.0.00) 
IFCINFO.EQ.0)GOTO 156 
GOTO 268 


BUILD 30 AND TOT.0O AND DON 
WRITE(6-081 ICOBIR .COSIL 


FORMELT(/SX.° eee RT SUBSPACE RESIDUAL = 


1 ‘uewe LT 
2 ‘wawe ENTER "1" 
2 ‘seve ENTER 2". 


REAO(*.ClLIIRTN 
CALL FRTCMS(*CURSCRN ° ) 


SUBSRACE FESIDVUAL = 


ah CAT 
"sEle. 5% * 
TO RETURN TO ADS. ELSE 


ee 


wea? , /OX, 


wewwe . /SK, 
aeuee’ , /SK, 


ue f ) 


501 


530 
510 


aiek 


oo 


INFO = 0 

IFCIRTN.EQ.1)GOTO 208 

CALL COND(V.N+VCOND) 

CALL COND(T.N-TCOND) 
O&FBUG WRITE 

wRITE(6 +290) 

FORMAT(/SX,‘**44 OPTIMIZED RT. EIGENVECTOR MATRIX “nut ,/)} 
WRITECE -CILICCVIL Jezel oN) L21 ON) 

FORMAT(2X,B(ES.1+1X}) 

WRITE(6.520)VCOND.COBUR 
FORMAT(/5X.‘4uaw RT, EV. 2 NORM COND. NO. # '.€12.5.' “weet. 6X. 
1 ‘wwuw RT. SUBSPACE RESIDUAL = °-E12,5-' “Het. s) 
WRITE(5 6292) 

FORMAT(/SX,.’e*s«" OPTIMIZED LT. EIGENVECTOR MATRIX “¥u4',/) 
ARITECS AGL ICCTEL-J)eJELsN)-LEL ND 
WRITE(S+S2I)TCOND-COZUL 

FCRMAT(/SX.‘eeuw LT. EV. 2 NORM COND. NO. = °.E12.5.° “uum. /5K, 

1 ‘awww LT, SUSSPACE RESIDUAL = '.E1Z2.5." want. s) 

SAVE RT/LT EIGENVECTORS.COND NOS. AND RESIDUALS ON FILEDEF 10 
WRITECLO-SOOJ((V(I.J) Isl NJ. L21.N) 
WRITEC1L0.50I1 )VCOND.COBLR 
WRITECLO-SOOJC (T(E -J)-J2l.N).121-N) 
WRITE(10.501)TCONO.COBIL 

FCRMAT(IX.E12.5-1X.E12.5) 

GOTO $11 

FORMAT(IX.G(EI2.5.1X%)) 

READ(IO-SOOIC(VOL+J)-J2L NJoL2leN) 

READ( 10.501 JVCOND.COBUR 
REAO(LO.SOOIC(TOL J) JeleNJeTeloN) 
REAOQ(10.501 J TCOND+COBIL 
WRITE(6.S20}VCCND.COBUR 
WRITEC6+S2I )TCCND-COBJL 

DO 20 I = 1.N 
DOr 20) a =i 5 
DO(JeJ) = EIGOM(U.4) 

SOCh J). eave) 

DO 2S I = 1.N 
DO 7S J = N=I0*¢1.N 
DON(J-N*IO.J-N*IQ) 2 EIGDM(J.J) 

TOTCU=-N°IQ-1) 3 TC1eJd) 

CESUG WRITES AND CONDITION CHECKS 
CALL CMATML(TOT.SO-L0+N+el0+wM22) 

WRITE(6.41} 

FORMAT(/SX.*weunH TOT * SQ ween'.s) 

WRITE(6 G2ICCWMO2(T .J)-y21-1Q). T2110) 

FORMAT(LX.4C1X.E12.5.1X)) 

WRITE(6.26) 

FORMAT(/5X.' "4" SOQ FOLLOWED BY TO ewww’ ,/) 

WRITEC6 27) CDREAL(SOCL«J)) evel IO) +L=1.N) 

FORMAT(2X. 201K -E12.5 2X )) 

WRITE(6.27)((DREAL(TOT(I.J)).L21-I1Q)-JsleN) 

WRITE(6.28) 

FORMAT(/SX.’444" CO FOLLOWED BY DON wunw’./) 

AR LTe(6e27 ) CCDREALCOC( 16d) )sJalsoiO)etst 10) 

WRITE(6.27)((CDREAL (OGN(I.J)).J=L-IN)-IT=1-IN) 

BUILD U0.BVO 
CALL CMATML(TOT.AC.1LO.N.NeTOTA) 
CALL CMATML(DON, TOT.I9.10.N.00T) 
Og30°1 <= ot, 10 
00) 30 J 2 Ian 

UOC: Ji = TOTAtl. d0e=" oon.) 

CALL CMATML(AC.SO0.N.N.I1Q.ACS) 
CALL CMATML(S0.DO.N-[0.19.S0D) 
DO 35 1 = IN 
00-25) J =" fai0 
BVOlL.J) = ACS( Te Jo =e S01 ed) 
O€SUG WRITES 
WRITE(6+36) 
FORMAT(/SX.‘'“44 BVO www’, /) 
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ee Fae 


o0c0OrUmUwmMdDUUCUMN 


oO 


ie) 


ARITE(S-37)((COREAL(3VO(1.J))-J2le-I9)-1l2leN) 
FCRMATCIUX.OCIX-EIZ.5-1%)) 
wRITE(5.38) 
ECRMAT(/5K. seen UCTC wasn ys) 
WRITECS-S9((DREAL(UOCI eS) JeleN)ec2leiNn) 
FORMATCIX.401X.ci2o.5-1X)) 
FIND SINVeCiINV 
Caulk USINF (ERIE ON -M.G.05-5Gi 0 iC eSSomK, i=?) 
CALL LGINE (CA. LDL NLD. 50 -CSi + 10+-SCemK. LER) 
05°40 ft = 1.6 
049 J 2 i-N 
Mes CEMPEX (SS) C2. J) 20-00) 
vo §0 [ = 1-N 
eG £0 J = 1.t 
CICCle-J) = DCOMPLX(CGI(1.J).0.30) 
CALCULATE vor<+T 42ND VO 
CALL CMATYLOUO.CIC-IS-N-LeLOT) 
CaLL CMATML(BIC.3V0.M.N,I19Q.V0) 
SESUG WRITE 
CALU CMSTMUCSS.SIC WN MINSC2) 
CaLL GMARML(TC.CIC.L-N-L-CCO) 
CALL CMATML(SCS-EC.N.N-M-SCMP ) 
CaLL CMA IML (CCCVSCSSC. LN COMP) 
CzLL GHETML(SIT.ST MN MomMSQ ) 
Call CMATMLICC CiSeL oN» Le mmMcl ) 
wRITE*5.51) 
FQORMAT(/5X.° mmm MOORE PENFOSE S*°INVIS)=8 2ESULTS seem’. s) 
ARI TES SCICCSREAL(ECMIC) JD) JeleM)-isleNn) 
Pagan (1X. 501K.cl12-§5.2X)) 
mRiTE(8- 55) 
PCRMAT(/SX.°eeer MOCRE PEARCSE C»PINV(IC)*C RESULTS »¥44’./) 
mRITE(6 +54) ((DREAL(CCMPCI£J)) Jel N)oceleL) 
FCAMATCIX-4C1IX-E12.5.1xK)) 
aR i T=E(6.85) 
FOCRMAT(/5X.’u4au Be a BS swan’, /) 
wRITE(6-.S$2)( COREAL CWHOO(T.J))-JSIeM) ISI 6M) 
wRITE(6-56) 
FORMAT(/SX.° saan GC 4 Co sewn’, /) 
WRITE(6 657 C COREAL CHEMO CS J) de JeleL). Tslel) 
FGRMAT(CIX.3CIX-E32.5-1X)) 
SUILS 50° aNw (7o73)- 
CSL. CMATMLICC.SSL.N.{9.CS0) 
CaLL CMATMLICE-SO-L»>NeLQ-wMI7 ) 
CALL CMATMLOTST.SC.15.N.M-T0T3 3 
CACU SGMATML(OT.SC. 1. NM OnMIB ) 
CALL CSVO(CSO.19-190.L-30-9-L.10.CS59S.CSU-CSV) 
CALL CSVE(~OTS-1C-1C-10.4-0.10.M-"G6TSS.7OTSY. TOTEV) 
TRANKC = [9 
uO 60 ft «= 1.19 
IF(CSCS(T).GT.0.50)GO0TS 50 
TRANKS z= 1 - ‘I 
GOTO 61 
CONTINUE 
LRANKT = 
~0 55 I = 1.M 
IFCTOTSSCI).GT.9,00IGCTO 55 
IRANKT 3 I - 1 
GOTO 82 
CONT INVE 
DO 70 1 32 1-IRANKC 
KV 2 1.3¢€/7€S590S(7) 
SOSC(i.1) = CCMPLACKV.0.D00) 
CO 75 i = 1.1RANKT 
XV = 1, DO/7TOT2SC1) 
TGlsaelies) = SGCMPLX(XV.0.350) 
260 7e 1 = 1k 
uOl76, J 2 Tek 
Csur(J-1) = CSuUCI.J) 
00 77 i = 1.16 
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00 77 J = 1-19 
77 TOTSUT(J-1) = TOTBUCT+-J) 
CALL CMATML(CSV-CSOSC. 1Q- IRANKC. [RANKC-CSVC ) 
CALL CMATML(CSVC.CSUT.-1Q-IRANKC.L,CSOI) 
CALL CMATML(TOTEV.TOTSSC.M, TRANKT. IRANKT- TOT8SS 
CALL CMATML(TOTSSS, TOTSUT.M- IRANKT.IQ-TOTBI ) 
C MQQRE PENROSE TEST FOR CS3I AND TOTS! 
CALL CMATML(WMI7-CSOT-L+1Q-L+COSS 
CALL CMATML(CCSS-AWM17-L+L- 1Q+CSOMP } 


DO 91 f 2 Tek 
oo?) Jo 2 1-1 
ay WMIS(C1.-J) = CSOMP(T.J) -— WMI7(I-J) 
C DEBUG WRITES 
C WRITE (5.90) 
co FORMAT (/SXK.'u4m CSO <uve 
Cc aria, 
Cc ARITE(6-SCICCDREALCKHMI70T -J))-J2l-10),f21-L) 


CALL CMATML(WM18.TOTBSI-IN.-M-IN- TTBS) 
CALL CMATML(TTBS-WM18./IN,IN-M.e TOTMP ) 
DO 92 I 2 1eIN 
DO 92 J 2 1-M 

7c WMIL6C0I+eJ) = TOTMP(I.J) — WMIS(I-J) 


Cc DEEUG WRITES 

c WRITE( 5-93) 

Gy FCRMATC/SX.- ‘en TOTS “wun? 

Cc 1./) 

Cc WRITE (6 -S2)0(DREALCAMI8B(1-J))-J21-M)-L21-IN) 
c FIND FIT 


CALL CMATMLOWM20,TOTSI»>MeM-[Q-mMl ) 
CALL CMATML(WM1.UOT.M-IQ+L+wM3 ) 
CALL CMATML(WMZ-CCO+M-L +L WMS ) 

C FIND F2T 
CALL CMATML(KM20+-VOeM-M- IQ-WM6 ) 
CALL CMATML(OWMs5 -CSOI.M-eIQ+LewM7 ) 
CALL CMATML(WM7,CCC.M-L-L»WMB ) 

C FIND F3T 
CALL CMATML(WM20,TOT8I-M»M-IQ-WM9 ) 
CALL CMATMLOWMS.WM18.M.[Q.M-WM1 1 ) 
CALL CMATMLOWMI1L+-VO«eM-MeIQ-KM12 ) 
CALL CMATMLOWM1L2O-CSOI+M-IQeL+wMI2) 
CALL CMATML(WM13,CCC.M-L>eL-WMIG ) 


C FIND FCT 

00 85 I = I-M 

DG #5 J = [-L 
85 FCT(I+J) = -wMS(I-J) -— WMB(I-J) * WMIG(T.J) 
Cc FIND F1S 


CALL CMATML (WM2O0+VO+eMeM, IQ+ WMG ) 
CALL CMATML(WM6-CSOI-Me-IQ-L-wM7 ) 
CALL CMATML(WM7-CCC.M-L,L> WMB ) 

C FIND Fes 
CALL CMATMLOWMOO-TOT8SI+MeMe IQ-WM9? 
CALL CMATML(WMS -UOT.M-I1O-L+WMIO) 
CALL CMATML(WM10-CCC.MeL>LeWM1 1) 

C FIND F2S 
CALL CMATML(AM2O-.TOTEI-M»M-IQ-WM12 ) 
CALL CMATML(WMID-UOT.M-IQ,L+WM13) 
CALL CMATML(WM13,.WM17-M-L,/1IQ+WM1G ) 
CALL CMATML(WMIG,CSOI-M-IQ,L.+WM1S) 
CALL CMATML(WMI5-CCC.M.L+LoM16) 


cS FIND FCS 
DO 80 [ = I-M 
00 80 J =titel 


80 FCS(I+J) 2-WM8(IT-J) = WMILICI-J) * WMI6(I-J) 
c FIND FCG 

DO 250 1 = 1)N 

DO 350 J = I-N 
350 VICI sJ) = Tee) 

CALL CMATML(V-EIGDM.N-N.N-VE) 

CALL CMATML(VE-VI+NeNoN. VEV ) 
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BO soo el Sl. N 
DO 355 J = 1.N 

355 Vette) # VEVCL se) = ACUI. J) 
CALL CMATML(ULTC.VMA.IY.N»N.E3) 
WRITE(5.355) 

355 FORMAT(/SX.°ewun ES wewwt is) 
BRITE(S SIS ICCES(L.J)-J2l.N) I[2l.1y) 
CALL CMATML(BIC+VMA.M.NON, BV) 
CALL. CMATML(BV.CZC.M.N-LeFCG) 

c DESUG WRITE SCTH FCS AND FCT 
wRITE(S.310) 

310 FORMAT(/SX.' “eee RIGHT FEEDBACK GAINS ern’, /) 
WRITECosSIES IC CFES(I.J)+Jel.L).t21.M) 
WRITE{S- 311) 

at FOCRMAT(/SXK.’ ee" LEFT FEELBACK GAINS «4*4',/) 
MrMOCCom sso GmelGlind Medal slate k= lM) 

eas FORMAT(iX,4(1K.E12.5.1X)) 
WRITEC6.315) 

315 FORMAT(/SXK,’ 44" GAY FEEDBACK GAINS «444? ,/) 
WRITE(S -SISICCFCGCI.J).J=1.L)-l=1.m) 
WRITE(6- 312) 

SS FCRMAT(/SX,°“44" SELECT RIGHT OR LEFT GAINS #444" ,/5X, 


1 *waue ENTER "1" FOR RIGHT GAINS «44° ,/5X, 
iz "aan" ENTER "2" FOR LEFT GAINS tae SSK 
Bs “wwe ENTER "3" FOR GAV GAINS Sener) 


READ(*-231)1G 
PPCIG.£°.13GO0Td 3250 
TECIG.=0.3)3G070O 325 
OO 713 [ = 1.™ 
DO S15 J = Ieb 
3I3 FCCi. J) 2 FCTCI.J) 
GOTO 1000 
320 DO 314 1 = 1oM 
DO Sie J 2 fs 
314 FCC(I.J) = FCS(i+J) 
GOTO 1000 
sa5 Do 326 [ = I.M 
pO 366 J = [>t 
326 FC(I.J) = FCG(I.J) 
Cc FINO ELGENSTRUCTURE 
10020 CALU CMATML(BC.FC.N.M.L»SCFC) 
CALL CMATML(SCFC.CO.N.L+N.»BCFCC) 
vo 600 [I 1.N 
90 600 J = 1.N 
909 CLY(I.J) = AC(I-J) + ECFCC(I.J) 
CALL EIGCC(CLM.N.10.1,EVALU-EVECT.i0,WORK. [ER) 
WRITECS&.610) 
510 FOPMAT(/SX.° «4 EIGENVALUES RESULTING FROM FEEDEF CALC «¥¥’.7/) 
APTTE(6- 6290 )CEVALUCTI).2L21.N) 
620 FORMATCIX-E1LO.S-1XE12.5) 
WRITE(S5.630) 
630 FCRMAT(/SXK.' 4444 EIGENVECTORS RESULTING FROM FEEDEF CALC «444"./) 
WRITECS C9OLICCEVECTC(I.J)-Jel1.N)-T=1.N) 
RETURN 
ENC 
CHS eee UMM 


C 


Cc SUBROUTINE ALGSLN : SOLVES FOR BASE EIGENVECTORS 
Cc ALGEGRAICALLY 
C 


CAM SSE EUN EE HUE H EEE HUE MMMM SSE UNE EERE EMH EEE 
SUBROUTINE ALGSLN(A.2.C.EIGD.E-UNITY NI OMI»LI«eVeWMAT ) 
IMPLICIT REAL*SCA-H.P~2) 
REAL*B A(10.10).8(610-3).C(10-10).,UNITY(10,10).- 
1 AWKL(2S0)-AWKO(250)-ALSLAM(10.10)-ALINV(10-10), 
2 W2C10-10).W2010.10).W4010.10)-WS(10-10)-W6(010-10) W7(10). .wS(10), 
3 WMAT(10.10).W9(10).S(20)-WK(30) 
COMPLEX “#16 EIGO(10).E(19.10).V(10.10) 
INTEGER NI-MI-LI-ITITL 
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70 
80 


Coo 


40 


50 


09 
19000 


CALCULATE SLAMDHA 
DO 1000 { = I+Nl 
RESNIT SLAMOHA 
DO 10 If = 1-19 


00 10 JJ = I-10 
ALSLAM(11+-JJ} = 0.00 
CONTINUE 


RECOMPUTE ALSLAM FOR EACH EIGENVALUE 
00 20 J = 1eNI 
DO 29 K = I.NI 
ALSLAM(J-K) = DREALCEIGOCE) #UNITY(Y.K) - ACJ-K) 
CONTINUE 
WRITE FOR DEBUG 
DO 25 J = 1-Nl1 
WRITE(6+36) CALSLAM(CJS+K) Kel eNI} 
FORMAT(1X+6(E190.3.1X%)})} 


CONTINUE 
COMPUTE INVERSE OF ALSLAM 
IiI = 1 


CALL LINV2FCALSLAM->N1+1O0+ALINV+ I -AWK1, IER) 
WRITE(6.100) Iif 
COMPUTE C * INV<ALSLAM> 
CALL VMULFF(C-ALINV.LIONINI-10+10-W2.10- LER) 
1 eae | 
WRITE(S- LOO)ITI 
COMPUTE C * INV<ALSLAM> * 8 
CALL VMULFF(W2.5.LI>N1+M1.10+10+W3.10- IER) 
Oe Ce Oe ie. | 
WRITE(S-109)3i11 
COMPUTE INV<C¥ INV<ALSLAM> * 8> 
DETERMINE 1F PSEUDO INVERSE IS REQUIRED 
tF(L1.EQ.M1L)GOTO 70 
CALL PINV(W3S.LE M1 WG) 
CALL LGINF(W3.10-L1.M1+0.00:W4-10+SWK- IER) 
GOTO 80 
CALL LINVIF(W3.L1.10-W4,f,AWK2. IER) 
Til = tip eat 
WRITECS-1LOO)LLf 
COMPUTE B « INV<C¥ INV<ALSLAM> © 8> 
CALL VMULFF(B+W4.NI1eM1+M1+10-+-10-W5-10- IER) 
Lid 2ofito 1 
WRITE(6-100)IT1 
COMPUTE ALINV 4 <BYINV<C¥INV<ALSLAM> 4 B>> 
CALL VMULFFCALINV-WS.NI->NI+M1,10-10-Worl0- IER) 
liig= Het 
WRITECS + 1LOO)IIL 
FORMAT(/5X. "OP NO.’»1I2,‘ DONE IN ALGSLN’) 
COMPUTE We * E& ANO THE Ww MATRIX 
00 40 J = [-L] 
W7(J) = DREAL(E(J-1)) 
CONT LNUE 
CALL VMULFF(W6.W7-NI1/MI-+-1.10,10,W8.10.fER) 
CALL VMULFFCWG.W7eMI +L 1el+10+10+W9,10- IER) 
DO 50 J = 1-NI1 
VOJeT) = DCMPLX(WB(J).0.00) 
CONT INUE 
DO 60 J = 1-MI 
WMAT(J»I3 s-W9(5) 
CONTINUE 
CONTINUE 
RETURN 
END 


CH Oe MMMM MERE MEE EHH EMME 


(ey Ie) (@) (el (ei (a, 


SUBROUTINE PINV: COMPUTES THE PSEUCO INVERSE OF AN 
IRXIC REAL MATRIX. OUTPUT IS THE 
ICXIR PSEUDO INVERSE (SEE GOLUB AND 
VAN LOAN, “MATRIX COMPUTATIONS’”.P. 159 
CAUTION::: IF WARNING FLAG RESULTS DUE TO ILL CONDITIONED A¥*T « A 
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RECOMMEND USING [MSL “LGINF™ VICE PINV 


TORO R REPOS ESEEEEOE COC COREE COOCPOEVeCrerrerererrerir eee rr ceerercecerec cles es) 
SUERQUTINE PINVOA.IRIC.PIA) 
IMPLICIT REAL*8 (A-H.P-T2) 
REAL“8 AC19.10).-P1A010-10)-AT(10-10)-WMC(C10.10)-WAREA(250). 
*®M101G210)-P4010.10).-4PA(10-10)-TC(10.10) 
INTESER [R-IC 
FIND A TRANSPOSE 


i 


DC 10 f = 1-IR 

£0 10 J 2 1.ic 

AT(J-1) = ACIS) 
G . CONTINUE 


FIND AT « 4 
CALL VMULFFCAT.A-IC.IR-I1C.10-10.-WM.10-1ER) 
WRITE wM FOR PROGRAM DEBUG 
CO s2Gtts = 4-1 


oo anoaoqnoagogaonoaoanaganano 


Cc mRITE(S -COOCICWMCII.“).K=1.1C) 

C900 FORMAT(1X.5(E10.3.1X)) 

C001 CONTINUE 

Cc FIND [NV<AT © A> 

Le CALL LINVIF(WM.IC.10-mM1.1,WAREA. IER) 

E "FIND INVCAT 4 A> © AT 

c CALL VMULFFCWML.ATIC-IC-1R,10.10-P1A.10. IER) 

c DETERMINE LF PSEUDO~INVERSE SATISFIES THE MOORE-PENROSE 
c CONDITION: Aka = A : 

re CALL VMULFF(PTA.A-IC-iR-[C-10.10.?4.10,.71ER) 

Cc CALL VMUL=FCA-PA.IR»iC.10.10-10-APA.1G.1ER) 

= DO 18 I = 1-IR 

c eaelsS J = 1.1 

c TCLeJ) = CABSCA(T J) - APACI.J)) 

cs CONTINUE 

c WRITE(S-30) 

co FORMAT(//§5X.' «44% MOQRE~PENROSE TEST FOR PSEUDO-INV «444"./5X, 
Cc 1 * aie ABSOLUTE VALUECA - AXA) youn’, /) 
Cc DO 50 I = 1.IR 

Cc WRITE(S GOI(TC(I.J).J21-I1C) 

co FCRMAT(IX.8(E10.3.1X%3) 

Loe CONTINUE 

Cc RETURN 

Cc END 
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(ey (ee UR) Umi Cel ter ie) tee tak Xo sos te) te) Cm) Cad Crm) Ce) 


qyanrananrAAaNdaeadaaAaa” 


onaana 


APPENDIX D 
RECONF 


ap oe oe ee ee a a OO OO Oe St Om ee eee et eS ee ee et ee a et a OO OOO ees Oe eee ee ee we ew 


RECONF: RECONFIGURATION ALGORITHM FOR THE F18 
DYNAMIC MOCEL 
FILE 01 = RECONF CATA = UNDAMAGED F-18 SYSTEM MATRICES 


CR) ren fe one 
RECOXX DATA = DAMAGED F-18 SYSTEM MATRICES 
(READ) 

FILE O02 = UNDEIG DATA = UNDAMAGED F18 EIGENSTRUCTURE 
CARITE) OR (READI --=-OR---- 
OPTEIG DATA = RECONFIGURED F18 EIGENSTRUCTURE 
(READ) 

FILE O03 = MATDREC DATA FOR “CONTROLS” (COPTMATD) 
(WRITE) 

FILE 06 = PLOTREC DATA FOR “CONTROLS” (OPTPLOT) 
(WRITE) 


FILE 07 = FRECCN (RECCNFIGLRED GAINS) 
(ARITE) CR (READ) 
FILE 08 = UNDASC DATA = UNDAMAGED F118 MATRICES FOR NULL 
SPACE ANALYSIS FOR ELASPACE (WRITE SNGL PREC) 
FILE 09 = ERSPACE (SLOW RIGHT EIGENSTRUCTURE) 


(WRITE) 

FILE 10 = RECEIG DATA = RECONFIGURED EIGENSTRUCTURE 
CWRITE) 

FILE 12 = FXACT DATA = USLTC 


(WRITE DURING K = 5) 


2 ae ee oe oe ee ee oe eye ee ee ee ee a ee Oe es OOO OO OO Oe Oe Sw OO ew OO Oe ee Oe SS we ew ew ee ew ee eww ew ee = 


COR V.F. GAVITO 
JUNE 1986 


ee a ee a ea we a a a ee ae ee 


IMPLICIT REAL *8(A-H-O-72) 

REAL*4 ASING(SS.55)-85ING(SS,10)-CSING(18-.55) 

DIMENSION A(S5,55)-3(55.10)-0(18.55)-Gi(55-3)-G2(10,3)-F(10, 18) 

DIMENSION FTILDAC1O-183-CLM4(55.55).2B5(S5.55),U8T(SS.55).S8(SS) 

DIMENSION WK8(110)-CS(SS-55)-UCT(S5S.55),SC(S55)-WKC(110) 

DIMENSION FTC(10.5S5)-3F(55.55)-CUMTIL (55-55) -WKT (200) 

DIMENSION WK(20G) -UNITY(55-55)-wK1(3200).WA1L (SS) 

DIMENSION AF18(SS.55)-.8F18(5S.3)-CF18(18-55).DF18(SS.-.3) 

DIMENSION NAF18(2)-NBFI8(2).NCF18(2),NCDFI8(2) 

DIMENSION UCZ)-XxX(55)-0UM4(55)-DUMS(55 ) 

DIMENSION NU(C2)-NXX(2).NDUMG(2).NDUMS(2)-8G61(55.55),CGI(55-55) 

OIMENSION CT(SS.55) 

CCMPLEX*16 E(S5)-A(100-100),DEL(55,.55)-UNITYC(SS,55),X0X(S5S-S5), 
1 X0(SS-55)-XI(S5-55)-XS(55-55)-xX0XA(SS-55) 

COMPLEX<16 UPOTC(SS.55),U81TC(SS.55),8ZINV(SS-55) 

COMPLEA*1lse UCITC(SS -55)-UC1TC(5S-55) -CZINV(SS.SS) 

COMPLEX#1l6 3U8(S5S,55),CuC(55,55)-BUX0(S55-55)-FC(SS-55S) 

COMPLEX*1lo ETIL{(SS)-XTIL(100,100)-8G61C(55,55),CGIC(SS,55) 

CCMPLEX*1ls ESLCW(24)-XSLOW(SS,2046).E5(55)>,SR,0(5S-§5) 

CCMPLEA*B ESING(24) 

INTEGER K-IMOD,IWRITE, IEVECT> IELE» ISLOW.KFAST-IROW-IDIS,IRESP.- 
*TRANKS,» IRANKC, [ROWS ISTATE(SS) .KSTATE(SS)-IORDCER-IFULL,NCONT. 
*NST.NSTP,IDAM 

CHARACTER #4 NAME 


C----------------------- INITIALIZE MATRICES----------------------------- 


0DO 10 [ = 1-55 
ES(I) = 0.00 
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ISTATE(I) = 0 

BO 10 J * 1-55 

UNITY(I.J) = 0.00 

JNITVYC(I.J} = DCMPLX(0.00.0.00) 
Cum(I.J) = 0.00 

SELCI.J) = OCMPLX(0.00.9.00) 
XOX(CI.5) DCMPLX(0.00.0.00) 
XOCI J) DCMPLX(0.00.9.00) 
KIC1-J) = DOMPLX(9.950.0.00) 
X(T.3) = DCMPLX(0.00-9.00) 
SUXDC!l.J) = OCMPLX(0.06.9.00) 


UETCI«J) = 9.00 
uUCT(I.J) = 0.00 
BGICI.J) = 0.09 
CGI(I-J) = 0.00 


USOTC(I.J) = OCMPLX(0.00.0.D00) 
VB1LTCCies) = SCVMPLX(9.00.0.00) 
SIINVCOI.J) = CCOMPLX(0.D0.9.00) 
CIINV(T.J) = SCMPLX(0.00.0.00) 
SS(CI+J) = 0.50 
CS(I.J) = 0.00 


SGICCI.J) = SEMPLX(0.50.0.00) 

CGIc(l.J) = DCM°LX(0.00.0.00) 
10 ACT.J}) = 0.00 

op 15 1 = 1.55 


UNITYCT.T) = 1.50 
UNITVC(I.I1} = COMPLX(1.00.0.00) 
DDeIS J 1.10 

15 S(1l.J) = 0.50 
DD 20 I = 1.18 
boss. -1e55 

<9 Cctl.J) = 0.00 
BD <5 1 = 1,55 
OD cS J = 1s3 
uCJ) = 0.500 

es GICT.-J} 2 0.00 
Woe OP Fk 10 
DD 20.5 = 1.3 


39 SC 0000 
‘oD 460 J = 1.18 


FTMBSACI «J = 0.09 
69 F(i.J) = 0.500 

DD 465 i = 1.200 
45 wKCIT) = 0.500 


O50 [2 1.55 
59 ECI) = DCMPLA(O.00.0.00) 
UOS5.4i>5 1. 109 
0D 55 J = 1.109 
So XCI.J) = DCMPLX(0.00.0.00) 
Cc 
Can -=5 0-2 ee~- Dae a GON = 9 == = a a = = = = = 
. 
IRANKS = 
IRANKC = 
os 
Cen --------- READ IN SYSTEM DATA FRDM FILE 01 “RECDNF” DATA------------ 
Cc 


READ( 1.100 }NAME 
READCL-LIGICCACT.J)-J21.55).221-55) 
READC 1.100 JNAME 
REAOCL-LIOICCBCI.J)-Jel-10)-1=1-55) 
READC(C 1.100 JNAME 
READCL-LIOIC(CGICI-J)-J21-3)-1T21-55) 
READ( 1.100 JNAME 
READ(L-LIOIC(C(CI.J)-J21-55)-121.18) 
READC 1-109 )NAME 
READCL-LIGICCECL.J).J21-18)-T=1-10) 
REoDC1.100 INAME 


150 


155 
150 


165 


ry 
wt 
“i 


oa0oaoaninaanndn no 
—_ 
wi 
@ 
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READ(CI,LIOMC(G2CI J), J21-3)-7321.10) 
READ( 1.100 NAME 
READCL 11070 CCLMCUls os Jee SS 0 rietaooe 
FORMAT (1K. AG) 
FORMAT(GI2) 
FCRMAT(4D20.13) 
PGR Maeuoe lao? 


CALL FRTICMS(’°CLRSCRN °) 
WRITE(6.150) 
FORMAT(/5X.'ENTER “1% TO WRITE UNDAMAGED EIGENSTRUCTURE.& ° 


°/5X.° SYST. MATRICES.(CREAD "RECONF’™ DATA Al. 
“ «/5K.° “UNDIEG’."UNDABC”™.& “CLM”. 

4 »/5X. “ENTER woe TO READ UNDAMAGED EIGENSTRUCTURE AND’ 
* f/5K. $ WRITE SLOW RT SUBPACE DATA FOR USE BY’ 
4 : “ERSPACE® (WRITE “ERSPACE” DATA Al) ° 
” ‘ENTER °3" TO CCMPUTE RECCNFIGURED GAINS. : 
4 . (WRITE “FRECCN" DATA Al) ‘ 
“ "ENTER “4% TO COMPUTE RECONFIG. EIGENSTRUCTURE ' 
” : AND TIME RESPONSE COPTMATD.OPTPLOT) °* 
” ‘ENTER °S” TOsCOMPUTE OeenD WRITE rice lo 3 
S ; "FRKACT’ DATA. ; : 


READ(*.155)K 

FORMAT(I1) 

FORMAT(I2) 
CALL FRICMS(°CLRSCRN *) 
ir (k.€0.5 1GOiaoc 7. 
IF(K.EQ.46)GO70 311 
IF(K.E2.3)GOTO 179 
IF(K.E0.c)GOTO 170 


--~+--- STORE UND CL IN UNITY MATRIX-------22--2---------------- 


BO eS [ s 1255 
DO 1605 J 2 1.55 

UNITY(CI«J) = CLM(T.J) 
CALL EIGRECCLM.55.55-1.E.X.100.WK, IER) 
WRITE(CZ.-LIOICCXCL. J). J21,55).121.55) 
WRITE(C-LIOICECI). 021.55) 

DO 156 I = 1,55 

DO 156 J = 1.55 

4A = ACT.) 

ASING(I+J) = SNGL(AA) 

00 157 I 4 1.85 

DO 157 J = 1.10 

BB = B(t.J) 

SSING(I,J) = SNGL(BB) 

DO 158 I 1.18 

DO 156° J = 1155 

CC = Gils) 

CSING(I.J) = SNGL(CC) 
WRITECB-LILICCASING(I.J).J=1.55).121.55) 
WRITE(B. LILICCBSING(CI.J).J21.10).121.55) 
WRITECB-LLLIC(CCSING(I.4)-J=3.55).221.18) 

WRITECLY.LIOCCUNITY(CI.J).J21,.55).151.55) 
WRITEC TL s1T1OVC(CG1EI-3)-J21.25)-121.55) 
WRITECLI.1LIOQIC(GOCI.J)-J21.3)-221,.10) 

GOTO 3000 
READ(2.110)0(XC1.J)-J21.55).121-55) 

READ(CI.LIQICECI). 121.55) 

IF(K.E0.2)GOTO 180 


DECOUPLE LATERAL DYNAMICS FROM STABS 
DECOUPLE LAT VECTORS FROM LONG ELEMENTS 
WRITEC6.172) 
FORMAT(/SX.**s44 ENTER “I" TO MODIFY DESIRED EIGENSTRUCTURE s¥en’, 
* /5XK,oeeunw ELSE ENTER "0". 4een. 
“/) 
READ(*.155)IMOD 


1S6 


CALL FRTICMS(°CLRSCRN ‘) 
IFCIMOD.EQ.9)GCTO 180 
CALL FRTCMS(°CLRSCRN °) 
DO 178 [ = 1.16 
IFC(I.LE.4)GOTO 178 
Te Cl.GE.3IG0TO 175 


GOTS 178 

X(T.42) = OCMPLX(0.D0.0.00) 
XCI.52) = DCMPLX(9.00.0.00) 
X(C{.465) = DCMPLX(0.D0-9.30) 


X(I.41)2 CCMP_X(0.00.0.00) 
78 CONTINUE 
nO) 179) f = 558 
X(1.38) = DCMPLX(0.00.0.00) 
XC(1.39) = DCMPLX(0.00.0.00) 
X(7-43) = BDCMPLX(0.00.0.00) 
MC12G6) = OGCMPLA(O.00.9.00) 
X(I-1} = OCMPLX(0.30.0.00) 
Kl ice = Dem Lx(0.00.0.00) 
XCles) CCMPLX(0.00.0.00) 
XC1+6) = DCMPLX(0.00.0.00) 
2 MCi.7) = DCMPLX(O.00.0.00) 
Cc X(I-8) =# OCMPLX(O.D0-0.00) 
C X(1.-17) = DCMPLX(0.00-.0.00) 
‘es 
1 
C 


ea na no Hn 7 fOF0 0 
~t 
wn 


oana no 


XC2-18) 2 DCMPLX(0.00.0.00) 
ae CONT INVE 


C------------ DISPLAY DESIRED EIGENSTRUCTURE {F REDUIRED--------------- 


180 WRIT=(6-.171) 

171 FORMAT(/5X.‘ #4 ENTER “I” TD DISPLAY DESIRED EIGENSTRCTUREx wee’, 
1 /S5X, ‘uae ENTER “O° OTHERWISE. eumn,/ 
ae) 

READ(4*. ISS IJIWRITE 

CALL FRTCMS(’°CLRSCRN ° ) 
IFCIWRITE.EQ.0)GOTO 255 
WRITE(6-290) 

200 FORMAT(/5X.°*«4" UNDAMAGED (DESIRED) ELGENSTRUCTURE DF FI8 “une? / 
1) 

DO 250 I = 1.55.4 
Beiat ere Gliact*leitcel*S -ECI)-ECL*1).ECiec)-EC1+3) 

Ae Fe) FORMAT(/2X. EIGENVALUE NO. °'-12-8X.4X.’EIGENVALUE NO. °-12.12X, 
L°EIGENVALUE NO. *.12.12K-°EIGENVALUE NO. *,I12./2K.E12.5.IX-E12.5- 
& Snobs atic UsoleiSoblo mots ae sey} alse Aor inlay inte ely GyZ 9) 

ealel FORMAT (2X 210 Se IX ELO.S OK ELL Se IX ELZ.§ 2K ELIZ .S IK ELL .5 62K, 

1 E12.5- 1% E12.5.-/) 
wRITECEelCCOVACI eT) KC So Lei) KCI. L2) KC Je L*3)-U21-55) 

220 FORMATCSX E12. GS LKeELe SOK ELS Se LK ELS Se OK ELS 5 LK E25 2X. 
SMS oF 0 1 Sols rs Bo, 

250 CONT INUE 


eo5 OD 260 [I = 1-55 
DECC ial = ECL] 
DO 760 J = 1.55 
269 XS(I,J) = XCI-J) 
CéLL CMATML(AS.DEL-55-55.55-+XD) 
CALL CESTIC(XS.55,.55-UNITYC.55.55.0-WAL. IER) 
CALL CMATML(XD-UNITYC.55.55-55+-XDX) 


Cc 

a ee mi om mr cae COMPUTE SVD DF 8 AND C (DAMAGED lemn nnn nnn nen nnn nn nnn nnn 
Cc 

c7e DD 270 I = 1.55 


USTCI-1) 1.00 - 
DD 270 J = 1-190 

270 BSC(I.J) 2 BSC(I.u) 
WRITE( 6-271) 

ert FORMAT(/SK.-*°**** CALLING LSVDF FOR 8 44H", /) 


187 


CALL LSVDF(BS.55-55-10,U8T.55.55,+SB8. WKB, IER) 
WRITE(6+275) ; 

275  FORMAT(/SX.'™unmw LSVDF OF "8" COMPLETE «uwn',/) 
CALL RANKO(8S.U8T»S3.55.10-US0TC.UBITC. BZINV. IRANKB. BGI ) 
WRITE (6.276 JIRANKE 

276  FORMAT(SX,' “4m RANK(B) = "ofS. “umn? ) 


00 280 ft 4 1.18 
UCT( 1.4) # 1.C0 
00 780 J = 1-55 
CTtd. Dee Clin) 

280 CSC iad yeemeur a) 
WRITE(6-281) 

CBI = FORMAT(/5X.'™¥s" CALLING LSVOF FOR C wenw'.7/) 

CuLL LSVDF(CS.55-.18-55-UCT-55.18-SC-WKC. IER) 
ARITE(6-2B2) 

282 FORMAT(/S5X,'*™s* LSVOF OF “C’ COMPLETE Hun’. 7s} 
CALL PANKO(CS-+UCT.SC. 18-55, UCOTC-UCITC-CIINV.+ IRANKC.CGI) 
ARITE(6.°83) IRANKC 

-B3  FCRMAT(SX, ‘404 RANK(C) = ',I12,° ween’) 
IF(K.EQ.3)GOTE 295 
IF (K.EQ.S5)GOTO 312 


C 
Cre arene nnn n-n= WRITE SLOW EIGENSTRUC TURE q--— << nn nn nnn mn nn een ener nen- 
c 
C BUILO SLOW EIGENSPACE 
cBo ISLOW = 0 
KF4ST = 0 
00 285°" 1 =) 1.55 
ECHECK = QREALCE(I)) 
ECHECA = OABSCECHECK) 
c FOR SYMMETRIC CASES USE 2 < 8.50-0l=> 20 STATES 
Coenen n nn n----- SYMMETRIC CASES-<--2-<<e----- oe cer mew ees cree secre cccc== 
c FOR SEGMENT 1 :(24) USE = < 7.590"01=> 24 STATES 
FOR SEGMENT 2 : 3.5460-01 < 2 < 7.5°90-01 
FOR SEGMENT $ : 0. < 2 < 3.540-01 
TF CECHECA.LT.8.50-01)GOTO 284 
C IF CECHECA.LT.3.540-01)GOTO 284 
G IF CECHECA.LT.7.59000-0113GOTO 284 
G IF CECHECA.GT.2.540-01j)GOTO [84 


LSCOW 3 S1SCoK > i 
C= =a ISTATE = VECTOR OF INOICES CORRESPONOING TO SLOW STATES--------- 
ISTATECISLOW) = I 
ESLOW (CI SLOW J ECCI) 
ESINGCISLOW) Et?) 
CALL SROOTCECI)-1-.SR-.0105) 
WRITEC6-091 JISLOW.I-SR 
oat FORMAT (C14: *SCOW STATE NO. *«I2»" UNO STATE NO. * ates" S$ = “FEUS.5. 
MIMS ELS.5< 5) 
00 285 J 2 1,55 
XSLOW(J-TSLOW) = X(T) 


ub 


GOTO css 
284 KFAST = KFAST + 1 
Co-ee--2 STATE = VECTOR OF INOICES CORESPONOING TO FAST STATES---------— 


KSTATECKFAST) = I 

285 CONTINUE 
IFCK.NE.I GOTO ¢87 
WRITE(B.101)1SLOW 
WRITECBeLLIICESING(I).151.1SLOW) 


GOTO 9000 
287 IROWS = ISLOW 

WRITE (9-256) IROWS. KFAST. IRANKB. IRANKC 
256 FORMAT(41I23) 


WRITECO-LIOICECI 121-55) 
WRITECO-TIOVCCXCI-J).J21-55)-121-55) 
ARITEC9.2OS7ICISTATE( I). 121. 2ROWS) 
WRITEC9.2S7)(KSTATEC( IT). 121 «KFAST) 
287 FORMAT (4Ci2) 
WRITEC9-LIOIVCESLOWLI ).1=1- TROWS) 
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. WRITECS- LIOICCXSLOW(I.J).J2e1-IROWS).1=21.55) 
WRITECS-LIOFCCACI-J)-J21-55)-121.55) 
IRCW = 55 = [RANKS 
WRITE(9.256 IRON 
WRITECS L10)0(UBITCCL.J).-J=1-55).1=1. ROW) 
WRITECS.LIOIVC(CCTOL.J)-J21-18)- 21.55) 


GOTO 9000 
Cc 
Crm mm mm mn nn meme ennnF IND FTILOA (RECONFIGURED GAINS )-2e- eee nnn n nn n-ne 
c 


= 25 cO 300 I = 1-55 
06 350 J = 1.55 
s% = SSICI.J) 
SGiCCI-J) = OCMPLX(SR.0.00) 
CR = CGICI.J) 
CGIC(I.J) = CCMPLX(CR.-0.00) 
AR = ACI,J) 

200 OMACT+J) = KOXCI.J) — OCCMPLX(AR.0.90) 
IFCK.EQ.5)GDTO 312 

303 CALL CMATML(SGIC.XDKA.10.55.55.5UxXD) 
CALL CMATML(SUXD-CGIC.10-55-18.FC} 
bOesrC 1 = 1.10 
CO 310 J = i-18 

Cm mm enn nnn mn -FLAG iF COMPLEX GAINS ARE BEING COMPUTE D------ ene eee nn--- 
CHECK = DIMAG(FC(T.J)) 
CHECKA = DASS(CHECK) 
Det Gece. .1.C=02 GOTD 319 


202 WRITE(C6-391)1-J-CHECKA 
201 PiGreere 5 Acie = GoM lek me RACK GAIN Oo + last 6° ela) 6 = relic 5) 
310 Pitigast.J) = CREALCFC(L.J)) 
GDTD 314 
C 
Cree ~-eeean ARITE FXACT FILE 1] Qrerrr rr nnn ene nr ene 


3i2 WRITECIZ-LIOICCUBITC(I-J)-J2=1-55).121-ITROW) 
GOTO 9000 


314 WRITECT-LIOICCFTILOACI-J)-J21-18)-f21.10) 


GOTD 9000 

c 

S REQ) FTILDA FROM FILE O07 AND CONTINUE w-nre nn emnennene--= 
c 

311 REAOCT-LIQGICCPTILOACT.J).-J21.18),1=1.10)3 

c 

Coe we we — 2 PING rGeNoweRUCTUMeos OF RECONFIGURED SYS [oMNq—-<<<<<-<~-~-+ 
Cc 


CALL VMULFF(CFTILDA.C.10.18.55.10.18-FTC.10-IER) 
CALL VMULFF(3.FTC.55-10.55-55-10.5F.55.[ER) 
DO 320 [ = 1-55 
DO 320 J = 1-55 
CUmMmietl- J) 2 ACi«sJ) + BSFCI.J) 
32c AFIBCI.J) = CLMTIL¢T.J) 
CALL EIGRFEC(CLMTIL.55.55.-1-ETIL,XTIL-100-WKT. IER) 
CALL SRDOTCETIL-55-ES-.0125) 


C 
Coeeeeoeese=== FIND CLM FOR NOMINAL SYSTEM mone n tent err e enn orn r ene ener 
cS NOTE: USING CLMTIL FOR AF18 NCMINAL OVE TO STORAGE LIMITS 
Cc CLMTIL 13 USED FOR MDDAL FOLLOWING 
CALL VMULFF(=.C-10-18-55-10-18-FTC.10.1ER) 
CALL VMULFF(8-.FTC.55.-10-55-55.10.3F.55.-JER) 
CD Soke 21655 
DO wee J 2° 1.55 
sue CUMTIL(CI-J) = ACIeJ) + BFCTI-J) 
Cc 
eee enema ie Le LO RECE 1G OAT Aqsa te eer ee an arses asses 
& 


WRITECLO-LIOVCCXTILCL-J).J21.55)-121-55) 
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Cc 


C-<<= 


c 


3c5 


341 
345 
346 
342 
250 


vou 
oss 
c 


WRITECIO, TTOICETIL OI Je Esls5S) 


“eoce wane QI SPLAY RECONFIGURED EIGENSTRUCTURE q----nn nn nn 


WRITE(S.325) 


FORMAT(/5X.'s446 ENTER "1" TO OISPLAY RECONF IGUREO eb tt 
1 «/5X-e "wane ELGENSTRUCTURE. ELSE ENTER “0”. J CIN) 
DY 


READC*. ISSJL0IS 
IFC(IOIS.EQ.0)GOTO 400 
WRITEC 6-350) 
FORMAT(/5X¢'**4" RECONFIGURED EIGENSTRUCTURE suum’ ,/) 
DO 335 I = 1.55.4 
WRITECOc2IOM «lets Tei alescenIceli,eniccl*)).,ErILCl*2).ETIC CI +33 
WRITEC6.CITJES(C. J. ESCI*13-EStl*s)-ES(i+3) 


WRITE(O-COOUCXTILCS- TI XTILCUe Teh) se XTIL(CJe-1e2) XTIL(J-1*3)-Je1.55) 


CONTINUE 

WRITE(6+336) 

FORMAT(/SX.'#*4 QAMAGED EIGENSTRUCTURE sam! ,/) 

DO 237 I 2 1-55-46 
WRITE(6-CIOIJI-I*l-1*2.f*5-EQAM(I) EQAM(I+1) EDAMCI*2) -EQAM(I +3) 
WRITE( 6-220) (XOAM(J.1).XOAM(J.1°1)-XO4M(J-1*2).XDAM(J-I*3)-421-55 
CONTINUE 


o------------- DISPLAY F ANO FTILOA-----~---------------=------------ 


WRITEC6. 360} 
FORMAT(/5X,'«48 QAMAGEO FEEQBSCK GAIN MATRIX ¥*"m',//5K,' COL 1-9 
rete) 
DO 345 [ = 1.18.8 


WRITE COe3SG5I(FCJ eT eFCUeT OL) FCI Tete F (J Ted) Flos 194) FC J.T *S). 


I FCS Tee) eFC Je T*7) FCT +8) Sle 10) 
LP CY Gi. 2IGGTO 362 
WRITE(5-341) 
FORMAT(/5X,.'COL 10 - 18'°-/) 
CONTINUE 
FORMAT(2X.9(E12.5-1X)) 
ARITE(8.350) 
FORMAT(/5X.' 4a" FTILDA “een? .//5XK." COL 1-9°./) 
oo 255 I = 1.18.8 


WRITE (6-346) (FTILOACJ-IT)-FTILDA( J+ Iel) FTILOA(J-I1*2) FTILOA(CU.1%3 


1) -FTILDACS.1*4).FTILDACJ. I +5). FTILOACY.Te5). 
2 FTILOACJ.1*+?7).FTILOACJ.1*8)-J21.10) 
IF({.GT.cdGOTO 401 
WRITE(6-351) 
FORMAT(/5X.'COL 10 = 18'°./) 
CONTINUE 


C----BUILO AFI8.8F18.CFI8,.OFI8 FOR RESPONSE CALCULATION ANO PLOTTING---- 


c 


401 


360 


405 


410 


WRITE (6-560) 
FORMAT(/S5SX.° "ses ENTER "I" FOR TIME RESPONSE CALC. "444°, /5XK,e 
I aS! 4 ENTER “O“ OTHERWISE. wane, /) 
READ(*.ISS)IRESP 
IF(IRESP.EO.0)GOTO 9000 
NAFI8(1) = 55. 
NAF18(2) = 55 
CALL VMULFF(8.G2.55.10.3-55.-10-8F18.55.1ER) 
DO 405 I = 1.55 
00 405 J = 1-43 
SFIS (Ci sj) 2 GItIsI) * SFist]. J) 
N8BFI8(I) = 55 
NEFis(2) 2 3 
00 410 I = 1,18 
DO 410 J = 1-55 
CEIEC 1. JI5= Ch) 
NCE IGCl) = 718 
NCFIS6(2) = 55 
00 4615 I = 18 
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BOGS J = 135 
415 DFI8CI-J) = 0.00 

NDFISCI) = 18 

NDFI8(2) 
Coo nmwewwnon we aw Rann ee ean en ne meee wwe owen en soe eewesooneoonese=20272-0 _ 


y 
w 


COMPUTE RESPONSE FOR 590 DATA SOINTS AND CREATE OPTPLOT DATA FILE 


oan 


WRITE(6.5090) 
500 FORMAT(//1X.‘CCMPUTING TIME RESPONSE’) 
C-- WRITE OPTPLOT CARAMETERS ANO NULL FEEDBACK MATRIX INTO DATA FILE -- 
ICRCER = 55 
NDUM4(1)= {ORDER 
NDUMS(2)=3 
C4LL NULL COUMS »NDUMG ) 
IFULL = NDUMG(1)*NDUMG (2) 
c WRITE(4.510) IORDER,»2-501.1-1 
E WRITE(G.515) (OUM6C1),[=21-IFULL) 
510 FORMAT(5!5) 
515 FORMAT(SE14.7) 
Cann----- INITIALIZE THE STATE AND INPUT VARIABLS --------------------- 
NXX (13255 
NXX (2) 21 
NUC1)=3 
NUCZ 321 
CALL NULL (XX »NXX) 
CALL NULL CU.NU) 


2) 


C----------------------- COMPUTE 2ESPONSE------------ wo n---2-------------- 


WRITE(6.521) 
Ser FORMAT(C/5X.°*#4e* ENTER "1°" FOR MODAL FOLLOWING “44° ./5X, 
I ‘seu ENTER "0" OTHERWISE. unan’,/) 
REAO(*,.155)10DAM 
CALL FRTCMSC’°CLRSCRN ') 
AMP = 1. 
NCONT 
NST = 0 
NSTP = 2640 
Tics ete i) been ¢ 
DO 520 120-500 - 
TIME=I4TS 
Cannes rte eer --- CHECK CONTROL PARAMETERS AND SET CONTROL INPUT --------- 
Meta eMolsANo si LE .NSTe ) THEN 
JONCCNT )=aMP 


i 
_ 


Soe 
UCKCCNT)20.0 
END IF 
wWRITE(4.530) TIME.CUCJ).J=1.3)-0XX0J)-J21,10RDER) 
Coccces eee RESET SCALE FACTORS FOR X2uXGe KO XT XB a cere cers secre ceceens 
Girevs «=o eeeeeeTO RAOIANS FOR PROPER CALCULATIONS... - ce eee ee se see SoObs0806 


Do g09 K = 1.10 
f-Ce.).s.0R.K.GT.S)GOTO 800 
IF(K.E0.5)GOTO 800 
XA(K)2XX(KI/5.72990*01 

800 CONTINUE 


C+---------------- MULTIPLY AF18 BY XX(N)-----seee ana en nn-nn----------- 
1O2DER = 55 
C----~------------- CHECK IF MODAL FOLLCWING 1S REQD---~----------------- 


tPCIDAM.ES.0)GOTO 525 

IF (XX(B8).LT-0.0)GOTO 525 

00 531 M = 1.I1SRDER 

DUM4(M) 2 0.00 

30 555 N = 1.1OROER 

Sco DUMG4(M) = DUMG4(M) * CUMTIL(M.NJ*XX(N) 
531 CCNT INUE 

GOTO 545 
a5 DO 569 M=21,I0RDER 


il 


DUMG (M)=0.0 
DO 550 N=1.IORDER 


550 DUMG (M) 2DUMS (M)*+AF 18 0M.N)*XX(N) 

540 CONTINUE 
Cnn rr ne 85-2 =- MULTIPLY SF18 SY UCN) rem mer ere tener eer enn en een ennn= 
545 DO 550 M=1.IORDER 

DUMS (M)=0.0 
DO $70 N=1,3 

579 DUMS (M)=DUMS(M)*8F180M.N)*#UON ) 

560 CONTINUE 
Csr e222 === — AOD AF13 XX(N) ANC BF1I8 U(N) rere ere ner en rene nn ener - 


DO 580 M = [-ICROER 
XX (M)=DUMG(M)+DUMS(M) 
Coes aeeee SCALE XX3-XX4.XX6-XX7.XXS TO DECREES FOR PLOTTING PURPOSES.... 
& 
IF (M.LT.5.0R8.M.GT.8) GOTO 580 
IF (M.EQ.5) COTO 580 
raga XXOM) = XXOM)#S5.72900"01 
$80 CONTINUE 
S20 CONTINUE 
§30 FORMAT(SE146.7) 


c 

Cwm m nr er rrr eter --- CREATE OPTMATD DATA FILE-ee nn ee nnn een e ee eorreeces-- 
c 

Cc CALL WRMATOCAF18.&F18.CF18.DF18.7S- iORDER ) 


AR ITE (5-999) 
999 FORMAT(//1X. ‘RESPONSE COMPLETE-CPMATD AND OPTPLOT DATA FILE CREATE 
“D*) 
ARITE(6,1000) 
1000 FORMAT(//1X.'TO PLOT RESPONSE GO TO CONTROLS EXEC. SELECT ORACLS. 
“THEN SEEECT GPTPEOT .<. 
“/1X,"°YOU MUST BE AT A 618 TERMINAL’) 


9900 STDP 
END 
ESTILO CCCEOOCCOEOCOCCOCCCCOOOCOCOCOOCCOCOCOCOOCTOCICO OOOO ICC OL C TT rere re r y S 
c 
fe SLBROUTINE CMATML (COMPLEX MATRIX MULTIPLICATION) 
C 
C CCMPUTES: YY = AA « 88 
C IA = 2 OF ROWS IN AA : 
Cc LL = 2 OF RCWS IN £8 AND 2 OF COLUMNS IN AA 
G 18 = & OF COLUMNS IN 585 
CCPC CECCOCUCe OCC OCCeOCeCECCEOCCE CECE CCCOCCOCETCOCCOCCCOOCCOCOOOCOOOO ECC CCL ee 


SUBROUTINE CMA’ML(4A.c8-ITA-LL-IB-YY) 
IMPLICIT RE4L*8(A-H.0-c ) 
CCMPLEX*15 AA(55-55)-.S88(55.55)-VY(55.55) 
INTECER I[A-LL-I8 
00 30 I = 1-IA 
00 20 J = i+f5 
YY¥(I.J) (0.00.0.D0) 
DO 10 INDEX = IeLL 
YY¥CIeJ) = YYCE.JS) * AACIT- INDEX) * BECINDEX.J) 
10 CONTINUE 
20 CONT INUE 
30 CONTINUE 
RETURN 
ENO 


Cet eet eee eee eee ee eee Cee eee eee ore eee eee eee 


Cc 

Cc SUBROUTINE RANKD: COMPUTES REQUIREO SLOCK STRUCTURES OF SVD 
Cc OF “SS" FOR USE IN EICENSTRUCTURE ANALYSIS 
Cc COR V.F. CAVITC 

c JUNE 1986 

Cc NOTES RZINVES PE SenGr be tne) COMPUTED: fs 

c 
Cc 


belie lel ta iiete tata Meiatetn i intel et he oe eee eee oe ee ee ee ee ee | 


SUBROUTINE RANKO(SS-.UT-S¢N-M.UOTC-ULTC-ROINVC. IRANK.BCI ) 
IMPLICIT REAL*8(A~H,0-Z) 
REAL*“8 8S5(55-55)-5(55)+SM(55.55)-R2(55-55)-RZINV(S5S-55)- 


fo2 


I U(55.55)-UT(55.55).V7T(55-55).S1(55).WK(50)-SMI (55.55) wWAREA(TI0) 
--B8GI(55.55).5SM(55.55) 
COMPLEX<I6 REINVC(S55.55).U0TC(55.55)-Ul7C(55.55) 
INTEGER NM. TRANK 
TRANK = “4 
EOwiear= 1.55 
DO = J = 1.55 
SGI(T; J) 2 8233 
Metewds -= 0.06 
RIINV(I.J) = 9.90 
VomeChet) = (0.506.059) 
UINEEGL«J) = (0.590005 ) 
REEMVEC Ts) = €9.3000.99) 
UCI.J) s 0.00 
SiGe) = o.56 
Slits) 2 0.2) 
I VTCt.J) = 389 
co 2 I = 1-50 


z mK(IT) = 0.50 
CO 3 1 = [om 
[ECS tiers Osco 3GOTO 5 
SRANK = [-I 
GOTO « 
3 CONTINVE 
6 PO 23 alee lan 


DO 30 s = I.N 
33 OC dea sets. I) 


DO 40 [ = I.N 
99 40 J = I. [RANK 
40 UCTS(J.i) = SCMPLX(UCE.4)-0.00) 


oO 53 [ = 1.N 
390 50 J = IRANK + [.N 

50 UITCCJ*IRANK. 1) = OCMPLX(UCI.J)-0.00) 

00 30 I = [.™ 

cO 69 I = 1.I1RANK 
20 63 J = [.M 

30 VICIeJ) # 8505.2) 
dQ 70 I = J.1RANK 

70 SM(I.1) 3 S(T) 
CALL VMULFFE(SM.YVT.IRANK«MeM-55-55.R2,55-1ER) 


SSS SSSSSSSSSSSSSSSSNOTE:s AZINV IS NOT COMPUTEDSS3355355555535555555555 

~ 

- 

c CALL USINFE(RI.10-iRANK.4, TOL RIINV010-Si «WK. TER?) 

C 

PAF FAFA ARBRE RRR EER BEEP PEE EPAPER RAE REFER EPA APRA RARAAFL AA AF AFA AAFP RAFF AMAR RAL 

ieslogiv/olo cigig'aia! sala alo 7 aie 03's 3\o0' 9.915 Sia S19 95 999559399993 9939 5590999999999 5999955 095 
02 3001 I = 1.12 4NK 

30C1 SMECZ-1) = 1.90/SM(I.1) 
CALL VMULFRF(SS.SMi.Me TRANK. TR ANK.55.-S55-RZINV.55.i28) 


00 6G I = I.M 
00 80 J = I. IRANK 
80 REINVC(I-J) = SCOMPLACAZINVOIT.-J)-0.00) 
CALL VMULFF(2S.SMi-M.IRENK. TRANK.55-.55-85M.55.~ °ER ) 
CALL VMULFF(8SM-UT.M. IRANK.N.55,-55-.561,55.i1ER) 
RETURN 
END 
CAN sew et eee SUSROUTINE wRMATD 4h een eH 


c 


QO 


WRMATD WRITES THE “AFIB’. ‘'SF1B*. ‘CFIB’. AND ‘'CF1B" 
MATRICIES TO THE SPMATO DATA FILE. EXTRA NULL MATRICIES ARE ALSO 
CREATED 4ND STORED TO COMFORM TO TRE OPMATD SATA FILE STRUCTURE, 
WREGes MarR cClES ARE TRE “GAMD'. °“F5"s (FK®. *S0"s "RD"s *V1"%- 
*"Vo*. ANB “SS. 


yeonodo0 mam oO OM 


Pets OCC Cease et Sesto Hee TE PECK KK VK KEKE EK et EHEC Ke HHT KEES 
SUBROUTINE WRMATOC4“AD.50.40-GD. SELT. 1CROER } 
IMPLICIT PEAL*8(4-4“.0-2) 


c Fl8 SYSTEM MATRICIES 


15 


Oo 


DIMENSION A4D(55-55)-8D(55.2)-HD(14,55)-GD(14.3) 


EXTRA MATRICIES REQUIRED IN DPMATD DATA FILE 


DIMENSION FD(55-2)-+FK(55+14)-OD014514)-RD(3.3)-VO014,14)-SD(55. 14) 


DIMENSION NFD(2)-NFK(2)-NOD(2)-NRO(2)-NV2(2)-NSD(O) 


INTEGER IDRCER 
CREATE NULL MATRICIES TO BE STDRED DN DPMATO 


NFD(1)23 


NFD(2)2ICRDER 
NFK(1)2IOROER 


NFK(2)514 
NQO(1)=14 
NODC2 12146 
NROC1)=3 

NRD (2) 23 

NV2C1)214 
NV2 (21214 


NSOCIT)=ICRDER 


NSD(2)316 


CALL NULL (FD->NFD) 
CALL NULL(FK»NFK ) 
CALL NULL (QD0-NOD) 
CALL NULL (RD-NRD) 
CALL NULL (V2>NV2) 
CALL NULL (SO0-NSD) 
WRITE MATRICIES TD DPMATO DATA FILE 


I = Q 
IANS = 1 
IDOPTD = 1 


WRITE(3.150) 
WRITEC3.120) 
WRITE(3-131) 
WRITE(3,130) 
WRITEC3+132 
WRITE(S-130) 
WRITECZ.132 
WRITE(3~.130) 
WRITE(Z.135) 
WRITEC3S»130) 
WRITEC3-136) 
WRITE(Z-1350) 
AR ITEC 2137) 
WRITE(3-130) 
WRITE(S.128) 
WRITE(3-130) 
WRITE CS. 132) 
WRITE(3.130) 
WRITEC3-1417) 
WRITE(3-1230) 
WRITE(3.1462) 
WRITE(3.130) 


FCRMAT(515.5X.F 10.5) 


FCRMAT (4020.13) 
FORMAT( 1X. 2HAD) 
FORMAT (1X, 250) 
FORMAT (1X. CHHO) 


FORMAT (1X »GHGAMO) 


FORMAT (1X, CHFD) 
FORMAT (1X+ HFK) 
FORMAT( IX, CHGO) 
FORMAT (1X. 2HOD) 
FCORMAT(ILX»CHRD) 
FORMATCLX+CHV1) 
FORMAT(1X+2HV2 ) 
FORMAT(1X-»2HSD) 


I. TANS. IDDPTD 
LORDER-3.-14-0-1-+DELT 


(CBDCI-J)-J51-3)+231-TORDER) 


CCHOCT.-J)-J21-ICRDER)-f=1-14) 


CCFDCIT,J)-J2#1-IORDER), L213) 


CCFKCI+J)-J21-146)-0T21. IORDER) 


((GOCT»J)-J21e-3)-T=1-14) 


((CQDCI.J) -J21-14)-f21.14) 


GCRIDIG Tl )erd 2 luvicen onli xe Leeisn) 


COVOCT+J)-Jel-14)-fale14) 


CCSOCI + J)-J=1.3)- 221. IOREER) 


<a ae ee ee ee ee ee a oe 


((AD(I.J)-JeI,IORDER). 121. IDRDER) 


194 


180 FORMATCI1,3X-11-3K- 11) 
RETURN 
ENO 


CHE MEEEEEEEEEEENEEHNEHEM HEM HEHE UHM HENNEY YHEHHEHEHEM UHM HEME HY YH 


Cc 
Cc SUBROUTINE SROOT: CONVERTS C-PLANE ROOTS TO 
LS S*PLANE ROOTS 
Ss 
c COR V.F. GAVITO SUEY 1°68 
[ee 
CH4SEHEWESEEEHEHEEEEEHEEHHEHHHHEBEEHNHNEEHMHHENHYUUNEH MH MHMHMHHHENE KM OY 
SUBROUTINE SROOT(ION+S.T) 
IMPLICIT REAL *3 (A-H-O-2) 
ComPlex«16 5(55)-S(55) 
INTEGER N 
oO iG 2 = JN 
RS = DIMAGCIC!)) 
ROs= DRESECZ¢1)) 
8S = (OATANCCRS-RCOII/T 
Ro = COAES(2.1)) 
A = -DLOG(R2)/T 
SCf} = DCMPLX(-A-B) 
10 CONT [NUE 
RETURN 
=NO 


195 


AE EIN IDE 
ERSPACE 


CANA N ARR 


C 

Cc ERSPACE: TESTS IF DESIRED/UNDAMAGED SLOW RIGHT EIGENVECTORS 
c ARE MEMSERS OF THE DAMAGED RIGHT HAND NULL SPACES. 
€ AND WRITES DATA FILE FOR USE 8Y ELSPACE 

Cc 

C COR V.F. GAVITO 

c JULY 1986 

Cc 

Cc FILE O01 = ERSPACE DATA 

Cc (READ) 

Cc FILE 08 = ELSPACE DATA (LEFT EIGENSPACE DATA) 

C (WRITE) 

aL ELEC LEE Cee EEE Eee eer eerrererererererrrrerereererrererrrrrrrrrre rrr rrr 


IMPLICIT REAL 8(A-H-O-2) 
DIMENSION A(SS5.58)-RESR(24) .CT(SS,.SS).WA(SS)-UNITY(SS.SS) 
COMPLEX#16 4(55-55 )-2(055 ).X45(55.55).T(5S-.55) -TLCCWCSS «24 ) 
COMPLEX*26 UlTEC(55-55)-AML(55 -55)-E169(24)-VO(55-.26) .21,V(55.24) 
COMPLEX*16 UNITYC(55+55)-RNULLC(55,55) -WV(55) -AVIC(55) > 
l RES(45.24),ESLOW(04)-XSLOW(S55+24) 502 
REAL“G SWV(110)-VL8(110)-VU8C110).G(01)-RACII1,111); 
WKS (9000)-ASING(55,55) .CTSING(55,18)-ERS,ECS.XRS,XCS,> 
TRS-TCS.URS.UCS 
COMPLEX*8 ESING(24)-TSLING(SS»24)+XSLING(SS»24)-XSING(SS +55) 
COMPLEX*"8 EING(S5),U138T(55,.55) 
INTEGER N1-M1-TELS+ 1WK(1000).1C€110)-10G6(01)>1T¥+TRANK» TROW(55~-24) 
INTEGER DFC 111), 1STATE(SS) »KSTATE(5SS ),TROWS,»KFAST, [AR8(SS).IUCTI 


ty 


C-------------- READ FILE 01 (ERSPACE DATA)-------------------------~---- 


READ(1>2) TROWS,KFAST, TRANKB>» SRANKC 
READ(1,5)(ECT)>i=1.55) 
READ( 1» SIC(X(1»J)-J21-55),7021,55) 
READC1 -GICISTATE(T),1=1,1R0OWS) 
READ( 1 -4JC(KSTATE(CT).1=1-KFAST) 
READ( 1,32 (CESLOW(7 2.121. IRCWS) 
READC1.3)CCXSLOW( LT .J)-Jel-IRCWS),12=1.55) 
READCL>SICCACT-J).J21,55),12=1,55) 
READ(1-2)TU81 
READ(1-3CCUITC(I,J)-J=1,555),T21,TU8!) 
READ(C1-3IC(CTCT,J)-J21518)-1=1,55) 

FORMAT (412) 

FORMAT(4020.13) 

FORMAT(4O0I2) 

FORMAT(8Ei°c.5) 


oO wn vs tO 


CALL FRTCMS('°CLRSCRN °) 
Nl = 55 
TSTEP = 1.250-02 
00 6 I = 1-Nl 
DO 6 J = 1-Nl 
ASING(1I,J) SNGL(ACT,J)) 
UNITY(T,J) = 0.00 

6 UNITYC(I,J) = DOCMPLX(90.00,0.D0) 
Do 10 { = 1-Nl 
UNITYCI,1) = 1.09 
UNITYC(I,1) = DCMPLX(1I.00-.0.00) 
DO 10 J = 1-TROWS 

10 V(I,J) = XSLOWC(I,J) 


tt 


196 


ICONJG = 06 


Ce------- DISPLAY SLOW EIGENVALUE INDICES FOR ARBITRARY ELEMENT~--------- 
C------------------------ SELECT LON---~----- 2-222 n noe = 
Cc 
WRITECH1L) 
ne FCRMAT(/5X.' «#44 INDICES OF SLOW EIGENVALUES “eew’,7) 
MRITECS- IQ CISTATECI)-Lek. LROWS) 
ta PORMAT(5(2x.12+2%).7) 
e ARITE(6 214) 
C4 FORMAT(/5X.'wuwe ENTER NO. OF ARBITRARY EIGENVECTOR “wum',/5X, 
@ l ‘ewan FOR ADS. wees) 
cS READ(*.2IIELE 
cS WRITEC6-I3 TELE 
ce FORMAT(/5X.°**ws ENTER ROW NOS. OF THE '. 12.’ ARBITRARY woes, 
Cc 1/5 ‘wwee ELEMENTS IN {2 FORMAT. ; wuuw' ys) 
e READC“.G)CIARB(I). 121. 2ELE) 
Comnnnn------ FOR RECRIS THERE ARE 27 ARS ELEMENTS NOT INCLUD STABS------ 
S TELE = 36 
TEER Ss 27 
= po 13 M 2 1.28 
es IARB(M) = Mo 8B 
Ee DO 16 M = 29.36 
C4 TARB(M) = M+ 9 
c TARS(25) = 45 
Ee TARB(36) = 67 
fe) ee aes Gee | 
13 IARS(M) 3 Mel5 
17006 00 §5 ft 2 I.fROWS 
BE = Soc0W(T) 


90 56 J = 1-NI 
BDO 58 K = I-NI 
56 AML(J-K) = SCMPLX(CACJ-K3-6.06) — ZI*UNITYC(J-K) 
IY = luBl 
aG CALL CMATML(UITC.2ML.IY»NI.NI-RNULLC) 
DO 57 J = 1.Ni 
57 W¥(J? 2 VCJ»T) 
59 CALL CMATML(RNULLC.KVOIYNI-L WVIC) 
cO 58 J = 1-1Y 
58 SectJ¢l) = WVIECII 


Cc FIND 2-NORM CF THE RESIDUAL 
Y = 0.00 
DG fe) 2 Tal¥ 
76 Ve VY + DREALCRESCI-I1))"*2* DIMAGCRES( J.T) )*2 


ROBJ = BSCRTCY) 
RESR(I) = ROEJ 


c IF 2=NCRM OF RESIDUAL [5 OK -— JUMP OUT 
{TF CROSJ.LE.1.000)GOTO 55 
Cc GoTo 55 


Mire eee eee eee eee ERE RE ERE eee ERE PRR ERE RRR PERE 


IF EIGENVALUE [S COMPLEX. THEN PERFORM THE OPTIMIZATION 
ONE TIME FOR BOTH THE EIGENVALUE AND [TS CONJUGATE. 


ooo 


THM MME H OHHH MH MEE MH MEM AMMEN 
961 IF (DIMAG(2Z1).E9.0.D00)SOTO 950 

IF CICONJG.EQ.1)GOTO 97 

ICONJG = I 
Coren n---- INITIALIZE ARBITRARY ELEMENTS (FAST ELEMENTS J------= BID SO SII 
960 DO UGG ft; = i. fELE 
100 IRCWCIIT.i) = fARSCIT) 
SS 4 4 4 5h SF te 8 OE Ee HOE Oe Oe tt OO tO tn Ok Oh EO OE TO OE OE OO Ot 
Cc 
es SET UP FOR ADS OPTIMIZER CALL IN SINGLE PRECISION FOR RESIDUAL 
c 
CHTHM MEHMET EMH EEE HEHEHE 
962 SRO3J = SNGL(ROBJ) 

INFO = 6 

IST2AT = 0 


iy 


[OPT 2 3 

[ONEO = [ 

NOV = 2¥NI1 

NCON = 0 

IGR40 = 0 

IPRINT 2 1000 

NGT = 9 

NRA = 55 

NCCLA = 110 

CALL SROOT (2172s TSreen 
WRITE (6 -SSS)LeC1l-C2.ISTATECT) 


963 FORMAT(/5X-'##"4 ENTERING AOS FOR EZESLCWH(’.12.°) Z = °eF12.5-1X- 
t=) eg a WOO) 7p tg VOOM nate MS) EFM ofsile ohio bolle gb vale oc pic 
2 ‘wee UNDAMAGED EIGENVECTOR NO. *. 12-7) 

C SET SOUNOS 

Cc ASK ALLOWEO TOLERANCE ON OESIGN EIGENVECTORS 


[FCLELE.EQ.0JGOTO 1007 
1008 WRITEC6.1003) 
1003 FORMAT(/5X.'*“44% ENTER REAL UPPER SOUND OF ARSITRARY ELEMENTS “44 


Ll" +/5X- "wea IN “F12.5" FCRMAT. ENTER "1" FOR NO SOUNO. www’) 


REAO(*,10203UR 
IF COIMAG(C1).NE.9.00)GOTO [015 
uc = 0. 
SOTO 1016 
1015 WRITE(6.1004) 
1004 FORMAT(/5XK.’s4"4 ENTER IMAG UPPER B80UNO OF ARSITRARY ELEMENTS “4% 


1’ ./5Xe ‘wee IN "Fla.> FORMAT. ENTER “I” FOR NGO GOUNGC:. wee? ) 


REAOQC*.1929)UC 
1016 [FCUR.NE.1.E*00)GOTO 1006 
Une 9. Vee 
1005 IFCUC.NE.1.E*06)GOTO 1005 
uc 2 G.18*c! 
1005 IFCIELE.EQ.NI)JGOTO [013 
1007 WRITE(S6-10103 
1010 FORMAT(/5X.'**"" ENTER ALLOWED EIGENVECTOR TOLERANCE IN "F[2.5" FO 


LRMAT s446"°,/5X%,°*™44 FOR THOSE EIGENVECTOR ELEMENTS aunt ,/5X, 
2 "e444 WHICH ARE NOT ARSITRARY. “auw’,/} 


WRITE(6.1011}3 

TOIl FORMAT(5X.'x“4" ENTER TOLERANCE ON REAL PART “404? ,/} 
REAOC™s LOSGIEPSR 

L020 FORMAT(F12.5) 
IFCOIMAG(Z1).NE.9.00)GOTO 1017 
EPscC = Q. 
GOTO 1013 

1017) w&RITE(6-1012) 

TQ1l2 FORMAT(SK.’ 444" ENTER TOLERANCE ON IMAG PART “#44'°,/) 
REAO( 4.1000 )E°SC 

1013 CALL FRICMS(°CLRSCRN ° ) 


JJ = 0 

00 77 J = 1eNOVH1-2 
JJ = JJ * 1 

KFINO = 0 


IPCIECE.EO.0)GOTO 1026 
1014 DO 1005 * = 1.ITELE 
IFC JJ.NE.TROW(Ke1)IGOTO 1005 
KFINO 2 1 
VUB(J) = UR 
VUB(J*+1) = UC 
VL8(J) 3 -UR 


VLBCJer) = -UC 
1025 CONTINUE 
Come nnn- NOTE: PRESENTLY THE ENTIRE VECTOR IS ALLOWEO TO VARY BY AN=--- 
Cc AMOUNT EQUAL TO EPSR-EPSC. INPUT EPSR=EPSC=0.00CURRENTLY 
Cc IF CKFIND. EO. LIGOTO 027 


1026 XX = OREAL(XSLOW(JJ.13) 
YY = OIMAG(XSLOW( JJ. 1)} 
VUBCJ) = SNGL(XX) + EPSR 
VUECJ*1) = SNGLCYY) + EPSC 
VLECJ) = SNGLOXX) - EPSR 


198 


VLS( Jel) = SNGLCVY) = EPSC 
1027 Xl = OREALCWVCII)) 

Yl = DIMAGCWV(IJ)) 

SaV(J) = SNGLOX]) 

SeV(J*L) = SNGLOYL) 
C(J) = 9 
cot) 
(2) -s.0 
(J*h) = 0 


u 
o 


3 
Te 
CF 
o 


77 CON” INUE 
BS CALL AOSCINFO.ISTRAT, 10PT. [ONED. LPRINT. IGRAD.NOV»NCON.SWV-VLB8. 
1 VUS.SRC3SU.G.ifG»NG~ iS. OF eRA»NRA~NCCLA.WKS .29C390.I1NK.1000) 
JJ = 0 
060 78 J = L.NOV-1.2 
JJ = JJ * 1 
avCJJS) = CMPLX(SAV(JS) ¢SWV(Se1)) 
78 VCSJeTD = AVOII) 
fa elwew.cG.0IGITOG 54 
e REEVALUATE OCSYECTIVE FUNCTION 
CALL CMATMLC(RNULLC- WV-ITY-N1-1-WVIC) 
CO°ss J = Lely 


Be RES(S-1T) = wVIC CY) 
Y= 0.00 
06 33 Jy 2 1.1V 
83 Vere ome etee ate 2 I4S + OIMAGCRES(C I. 1} ) «92 


RCEY = OSCRTC(Y) 
RESRCI) = RCsJ 
SROBY = SNGL(RCS8Y) 


€ CONTINUE WITH 40S CPTIMICATION (MINIMIZING 205J) 
GCTO B84 
er ARITECS.95 203-71 
35 FORMAT C/1X.' eee CBJECTIVE FUNCTION VALUE = °.€10.35,° “#4"",/1X, 
1 *wwuu FOR EIGENVECTOR NO. °. 12,’ wunel,/) 


IF COIMAG(CI1).E0.0.60)G0TO $5 
IF CICONJG.EQ.1)GOTO $5 
97 OG 98 K = 1.N1 
ICSNIG = 0 
98 ASUSW(K. I) = DCONIG(V(K. [-1)) 
5 ONT INUE 
CHAFEE MEME EH EMME HAE MN NEENAH MMM ee 
o--ce-- DISPLAY RESULTS GF <ULT*<A=LAMDRANI >> «DESIRED BASE EIGENVECTORS-- 
CSS SCOUT EE ESE MAB EEEEEEE EYEE EAE TE AEH EEE EEE ENED EMMY 
SALE FRIECMSC CLRSERN ° ) 
ART TE (6-65) 
aS FORMAT(C//§X,'eeewe THE FOLLOWING VECTCR DISPLAYS THE NEARNESS OF * 


Ieee’. /SK. ‘euew ZACH SLOW EIGENVECTOR TO THE ALLCWABLE RIGHT 


4 


ove’. /5X, “wae MAND SUCW EIGENSPACE FCR THE DAMAGED F118 MODEL. * 


cee, /) 
ARTTECS-60ICRESI(T), Lele [RCWS) 
60 FORMAT (OX,020.13 
WRITEC6.150) 
1590 FCRMAT(/5X.’*uaw ENTER "1" TF RESIDUAL TS UNSAT TO RENTER ADS aH 
1 °e/5X- Se S4e ELSE ENDER “0”. 
= «f) 
READ( 4,155) 1CPT 
1s5 FORMAT(T1) 
CALL FRICMS(°CLASCRN ° } 
IFCiIOPT.E0.0)GOTO 1590 
CO les J 1, IRCWS 
CO 165 i = 1.55 
165 XSLOW(I.J) = VCI-J) 
GOTD 170 
15d DO 93 K 2 1.1RCWS 
Wess) = 1.55 
KK = [STATECK) 


93 X(L-KK) 2 VCJ.K) 

6: 

Coweerererer----- eINDSEEr i HAND ELGENVEC TORS~<-—--=--—--—--=----= a 
Cc 


aus 


BOU E75 bf is°1.S5 
DOot75 J = 1-55 
Lis MS Cl oJ) a Mere) 
CALL LEOTIC(XS.55.55+UNITYC-55.55-0.WA. TER) 
DORIS Pie=nl 55 
po 180 J = 1.55 
180 T(CJ-12 = UNITYC(I.J) 
G REINIT UNITYC 
DO 181 { = 1-Nl 
DO 181 J = 1.NI1 
181 UNITYC(Ie2J) = SOCMPLXCUNITV(E.-J)-6.09) 


C------------- BUILD SLOW LEFT HAND EIGENVECTORS-----------------~------- 


DO 185 J = 1-TROWS 
DO (85 1 =° 0755 
KK = ISTATE(J) 

185 TSLOW(T.J) = TCI+KK) 


Coenen eene WRITE FILE 08 FOR USE BY ELSPACE IN SINGLE PRECiISION-on--- 


ARITE(6.198) 
198 FORMAT(/5X.'¥¥44 WRITING ELSPACE DATA FILE 08 wauw’./) 

DO 190 I = 1-55 

BR = DREALCECI)) 

Ec DIMAG(E(Ci)) 

ERS = SNGL(ER) 

=CS = SNGLC(EC) 

GING(I) = CMPLX(ERS.ECS) 

pO 190 J = 1.55 

AR = DREALCX(I.J)) 

XC = DIMAG(K(I.J)) 

XRS = SNGLOXR) 

XCS = SNGL(XC) 

XSING(I.J) = CMPLX(XRS-XCS) 
190 ASING(J-K) a SNGL(ACI.K)) 

pO 195 J = 1-55 

CO 125 hos 1-168 
Pas CTSING(J-K) = SNGL(CT(J-K)) 

DO 196 I = 1+ fROWS 

ER = DREALCESLOW(I )) 

EC = DIMAG(ESLOW(I)) 

ERS = SNGL(ER) 

ECS = SNGELEC3 

ESINGCI) = CMPLXCERS.ECS) 

DO 196 J = 1-55 

TR = DREALCTSLOW(J.1)) 

TC = DIMAG(TSLOW(J.1)) 

TRS = SNGL(TR) 

TCS = SNGL(TC) 

XR = DREALCXSLOW(J.1)) 

XC = DIMAG(XSLOW( I-17) 

XRS = SNGLOXR) 

XCS = SNGLOXC) 

MSLING(J+1I) 2 CMPLX(XRS.XCS) 
196 SLING(J-+1) = CMPLXC(TRS.TCS) 

DO 197 I 1-IUBL 

DO 197 J 155 

UR = DREALCULTC(I-J}) 

UC = DIMAG(CULTC(I.J))} 


URS = SNGLCUR ) 
UCS = SNGL(UC) 
eae UILBTCI.J) = CMPLXC(URS.UCS) 


WRITE(8,CUIROKS. [UBL 
WRITEC8-G4)CISTATE(I).1=1-IROWS) 

WRITE(8-5 )CESING(I).1=1-1RGWS) 
WRITE(8-SICCASINGCI-J)-J=1.55)-121-55) 
WRITE(8.SICCTSLING(I.J),-J=el.TROWS).121-55) 
WRITE(8+S)CCXSLING(CI+-J).J=1-ITROWS).121.55) 


200 


ARITECE-SICCCTSING(I.J).J21.18).121,.55) 

WRITE(S.SICEING(I).121.55) i 

WRITECB-SICCXSING(I.J).321-55)- 121,55) 

WRITECB-SICCUIBTC(I.J).J21-55).l=1-Ilusl) 
65 STOP 

ENO 


nee tee ee eee ee eee eee eee eee eee eee eee PERE REECeCE eer 


a 
S SUBROUTINE CMATML (COMPLEX MATRIX MULTIPLICATICN) 
c 

C COMPUTES: YY = AA *« 5B 

c 2A =z 2 GF RCKS IN AA 

= Lue 2 & CF ROWS IN EB AND & OF COLUMNS IN AA 

S 3 = 2 OF COLUMNS IN 38 


CHM MAU EN 
SUSROUTINE CMATML(AA-35-TA-LL.IB.YY) 
COMeues-1o 4.(55-55).88(55.55)-V¥(55.55) 
INTEGER TA-LLVIB 
DO 30 i-s 1-IA 
DO 29 J 2 1.:8 
Y¥CIeJ) = (0.00.9.00) 
00 10 INDEX = 1-LL 
V¥(I.J) = YYCI6J) © AACT.INDEX) * BBC INDEX. J) 
10 CONT INUE 


<0 CONTINUE 

390 CONTINUE 
RETURN 
END 


COHAN HONE HEY HHH 


SUBROUTINE SROOT: CONVERTS T-PLANE ROOTS 70 
S“PLANE R00TS 


CDR V.F. GAVITO JULY “i566 


i ee © ee © ee Oe © 


MEER ERE Pe eee eee eee ee lal 
SUBROUTINE SROOT(Z.S-T) 
IMPLICIT REAL»S(A-H,P-Z) 
COMPLEX416 2-5 
RS = DIMAG(Z) 
RC = SREAL(Z) 
B = (DATANZ(RS-RC))/T 
22 = ClaES(Z) 
-DLOG(R2I)/T 
S = DCMPLX(=-A.8) 
RETURN 
END 


b 
iT) 
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rele IN ieee 
ELSPACE 


CHAM NMBA RMN 


ELSPACE: TESTS IF RT/LT GLOW LEFT EIGENVECTORS 
RESULTING FROM ERSPACE OPTIMIZATION ARE MEMBERS OF THE 
DAMAGED NULL SPACES. 


NOTE: COMPUTATIONS 4RE IN SINGLE PRECISION 


CDR V.F. GAVITO 
NOVEMBER 1°86 


e 

Cc 

C 

Ss 

Cc 

c 

ie 

iS 

Cc 

Cc 

Cc FILE O1 = EGSPaAcesDAtas 

Cc (READ) 

Cc FILE IPASS 2 ADSDAT DATA OR XSLOW DATA 
Cc (WRITE CR READ)(WRITE) 

c FILE 04 3 LRES DATA 

C (WRITE UNDAMAGED) (REAL OAMAGED) 
c FILE 07 = NULL DATA 

Cc (READ) 

c FILE 0B = OPTEIG DATA 

Cc (WRITE) 

c FILE 09 = SEGEIG] DATA (SEGMENT 
c FILE 10 = SEGE1Ge DATA (SEGMENT 
C FILE 11 = SEGEIGS DATA (SEGMENT 
c (WRITE) 

€ NORMS 

c RESRSC)/RESLS() SUM OF VECTOR COMPCNENTS (COMPLEX) 
Cc HESRo © )/Reowe.) c-NCRMS (REAL) 

S RESRICI/RESLIC) = I-NORMS (REAL) 

c REINFROI/REINFLO) = INFINITY NORM (REAL) 

Cc INFNRR CO I/SINFNRL() = ROW NUMBER CF INFINITY NORM 

C ELUND()/ELDAM() = LEFT NULL PESIDUAL VECTORS 

LE: DTNORM() = O-NCRM OF DIFFERENCE BETWEEN LEFT EVECTORS 
Cc 

S 


DESIGN DATA) 
CESIGN DATA) 
DESIGN DATA) 


Ww hae 


Coe eee ee eee eee eee eee ee ee ee ee oe ee 
IMPLICIT REAL «4 (A-H.O-2) 
REAL “4 LTEST 
DIMENSION A(55,55),C7T(55.55 ),WA(S5).UNITY(55,55)+DTNORM(24) 
DIMENSION SCT(55)-WKCT(110)- UCTT(55-55) ,RESRO(24)-RESL2(24) 
DIMENSION G(1)-OF(111)-RAC111,222).WK(10000)+xXX(111),VU8(T11) 
DIMENSION VLB(111).RESR1(24),RESL1(04) ,-REINFR(24),REINFL (24) 
COMPLEX*8 TOLOW(SS -2¢)-.AML(55-55)-UNITYC(55-55).UCTITC(S5S.55) 
COMPLEX«8 XSLOW(S5~.24)-UBITC(55 -55)-RESR( 24) -RESL (24) 
COMPLEX*B UCA(S55,55).LNULL(24-37.55)-LOBJ(55)-ESLOW(24) 
COMPLEX*8 U8A(55-55)-RNULL(04,45-.55),RO8J(55)-E(55)-x(55,.55) 
COMPLEX"8 ATML(55.-55 )-WVL(S55)-NML(55-55).7(55,55)-X5(55-55) 
CCMPLEX#8 WVR(S5).NMR(55.55),RR-RL-21.00-23-06.05 -ROT.SCHG 
CCMPLEX*8 RUNULL (1-45-55 )-LUNULL (1 .57.55)-XT(55.55)-XSAVE(5S.55) 
COMPLEKX*8 RESRR(24)-RETLLO24) -O8JC.25A-RESRS (24). RESLO( 24) 
COMPLEA*B ELUND(57,24),ELDAM(27-24) .O1FF (24) 
COMPLEX*B TDES(55.24),DT(55) 
COMPLEX*16 £0(55),XD(55-55)-EDR(55),xDR(55,55 ) 
REAL*8 DR-DC 
INTEGER TROWS. IRANCT.1UB1-.1DG¢€1)-.1C(01)-1WK(1200)-10(8).1STATE(5S) 
INTEGER INULL. 1ARB(55),1CHG. INP, 1ADS. 1SEG. LEEN. 11MAG. IRECHK 
INTEGER INFNRR(24).- 1FFNRL(24)-1UND 


DO ©0090 I = 1-55 
DO 600 J = 1,55 
UCTITC(1,J) = CMPLX(0..0.) 
UBI1TCCIT.J) = C4PLX(0..0.) 


202 


UBACI.J) = CMPLX(0.,0.} 
JCACT.J) CMPEX(O. «0.) 
600 CONTINUES 


¢-------------- REAO FILE 01 (ELSPACE OATA)------------------------------ 


REAOC]»-2IIRCWS.1US1 
REAOCL GICISTATEC(T}. f21-IRCWS) 
RSADCL SICESLCWSI).fT21. IRONS) 
READ0C1 3S) (ACT.U)-J=1-55)-121-55) 
READCL «SCC TSLOW(CI.J)-J21.tR8CWS),121-55) 
REA0C1 -3ICCXSLCWCI-J)-Jsl-IRCWS).1=1.55) 
REAO(1 - SICCCTCITesJ)-J=1-18),151,55) 
REANCL SICECI)- 121-55) 
READCL»3)CCX(1-J)-J21-55)-221.585) 
READIOM sc OCUslnen leJ)«J=). 5500121. (US1 } 
FORMAT(4{2 
FORMAT (6C12.5) 
FORMAT(4OI2) 
FORMAT(I1) 
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t 
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oO 


tA0S = 

106(1) = 0 

Gti) 2 0. 

Tel) 

INULL 

ICHKG = 9 

IIMAG 3 0 

INULLC = 0 

INP = 0 

IRECHK 

TUND = 

WEIGHT 

RLU = QO. 

RLO = 0. 

REPEAL = 0. 

TRANCT 3 i8 

pate; Is) 

TARSCT) 

ROSJC(1) CMPLX(0..0.) 

LOSJC(I) = CMPLX(O.,.0.) 

eyo) by J) a fa Ss 

ASAVECI.J) = KCI) 

MSCisJ) @ XCI.J) 

UNTTY(T.J) # O. 

UCTT(T»J) = O. 

UNITYCC(I-J) = CMPLX(0.0.0.0) 
5 CONTINUE 

oO 5 i = 1.55 

EECI) = ECT) 

UNITYCI,i) = 1.0 

UNITYCCL-1) = CMPLX(1.0.0.03 
6 CONTINUE 

Uber 2 leas 

RESRSCI) = CMPLA(O..0.) 

RESLSCI) = CMPLX(0..0.) 

RESRRCI) = CMPLX(0.-0.) 

RESLLCIT) 2 CMPLX(0..0.) 

RESVFICI) = 0. 

Rese Ci} = 0. 

RESRI(T) = 0. 

RESLIC1I) = 0. 

REINFR(I) = 0. 


Ty a 
oa o 
e 
t=) 
=_ 


1 
i 

_— 
oO - 

uw 

uw 


203 


REINFL(I) = QO. 

RESR(CI) = CMPLX(0.-0.) 
RESLCI} = CMPLX(0.-0.) 

D0 7 JzI13 

ELUND(J-I) = CMPLX(0.-0.} 
ELCAM(J.1) = CMPLACO..0.) 


7 CONT INUE 
eS 
Cw-~- 35 4------- SAVE DESIRED SLOW LEFT EIGENVECTORS FOR CPTIMICAT ION----- 
ce 
pO 660 I = 1.55 
DO 650 J = [.-IROWS 
660 TCESCI.J) = TSLOWCI.J) 
c 
C------------- FIND DESIRED LEFT EIGENVECTOR MATRIX Tene 2nnnn renner nro nn 
c 
620 CALL LEOTIC(XS.55-55. UNI TYC.55 «55+ 0+WA- IER } 
CO 9 i = 1.55 
po ? J = 1[.S5 
9 TOJeT)? & UNITYCCI- J) 
Co-~---------- REINIT CCMPLEX [IDENTITY 8 XS-----20n ene n nn enn ne rere renee 
DO 1) 1) = 7555 
DO Tha = 1255 
AS(T+J} = CMPLX(0.-0. ) 
Uo = UNITYCI J) 
Ll UNITYC(IeJ} 2 CMPLX(U.0.0) 
IF CIRECHK.EQ.0}3GOTO 17 
DO 040 I = 1-55 
CO 640 J = 1.iROWS 
KK = [STATE(J) 
640 SLOW(I.JIsTCI-KK) 
GOTO 208 
ie 
Ce------------ FIND SVD OF C*#T (DAMAGED len nnn nnn nnn nn nn rn nr nnn nn reren--- 
Cc 
Ged BO [0 [os i255 
10 UCTI(Is1) = 120 
CALL LSVOF(CT.-55-55.18-UCTT.55+55,SCT»WKCT. IER) 
00: 15) tases 
IF C(SCTCI).GT.0.0}1GOTO 15 
IRANCT = [i 
GOTO 20 
15 CONTINUE 
nS CALL FRTCMS(’°CLRSCRN °) 
WRITE(6-16) LR ANCT 
16 FORMAT (C/SX e984 RENKCC“6T) 2 "aloe “NS 57) 
DO oss f= 155 
DO 2S J = IRANCT + 1.55 
UCX = UCTT(J-f) 
Ags UCTITCCJ-IRANCT-I) = CMPLX(CUCX.0.0) 
Co----------------- ANALYSIS [NFOQ----------2------------- 29-5 5-5 ------- 
WRITE(6-18) 
18 FORMAT(/5X.*s44e" ENTER "1" ITF PASS 1S FOR UNDAM ANALYSIS “Hew, 
A /5X,'44ee ENTER “Ov ELSE. vm 
READ(C 4.8) IUND 
IFCTUND SOs fiGene: 19 
READCG.3SYCCELUND(CI-J)eJ2l-27).-0s1-1ROWS) 
C 
Coen een= seeceee PASS QUE -- - <3 rn a a rr rr no ne ee 
Cc 
19 WRITE(6-41) 
Gl FORMAT(/SX.° 444" ENTER “I” IF FIRST PASS THRU ELSPACE *44"'.,/5X, 


l 


"wae ENTER PASS NUMEER OTHERWISE. wma, /) 
READ(*.8)IPASS 
IF CIPASS.EQ.13IGOTO 42 
READCIPASS-2}IROWS. [PASS 
READCIPASS GICISTATEC I). [21.-IRCWS) 
RPEADCIPASS-33C(XC1I-J)-J21.55),121-55) 
READCIPASS -JICCTC1 J). J#1-55)}-121,55)} 
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if) 


REAOCIPASS-3)0CCXSLOW(I.J).-J21.iROWS). 121.55) 
READCIPASS-SICCTSLOW(I.J).Je).TR0WS).131.55) 
READCIPASS- J ICESLCWCI). [ele IRCWS) 


~ 
— 


G=--=-~--==--=REINIT E AFTER ELSPACE EXECUTION---------------------.~~~ 


~ 


ae 20 07 T = 1.iROWS 


rt 
SOCIli = ESUCK(I) 
Ff ECila 2 ESLOWCT) 


C 
== == === == ==——= REINIT KO AFTER ZLSPACE EXECUTISN-----— doelantetenetaetetentententoetantententetontatand 
e 
eOvce § = 1455 
CO cs J = i<&5 
=6 KOCI.J) = XC2.J) 
c 
Oe FIND NULL SPACE SPERATOR Sr ar een nnn nn rn nn nnn nn nn nnn 
C 
00 39 [I = I-TROWS 


<1 ESLOWCT) 
sPCICHG.EQ.CIGOTO 34 
Bit = CaG I 
34 CG aSsaue $1.55 
OO 25 K = I.55 
a2 2 ACI.K) 
AT? = ACK.J) 
AML (JeK) = CMPLX(AR.0.0) = Zi*UNITYC(J.K) 
55 ATML(5,K) = CMPLX(ATR.O.9) = CISUNITYCOJ.K) 
CALL CMATMLCUBITC.AML.IUSI.55.55.UBA) 
CALL CMATMLOUCTITC. ATML .».55—-IRANCT.55 +55 UCA) 
OG 26 JJ 2 1..UBI 
DO 36 «KK = 1.55 
IFCICHG.£Q.03GO0TO 27 
RNULL CINULLC.JJ.KK) = UBAC JJ. KK) 
GOTO 35 
RNULL Cie JJ+KK) 
26 CONT TINUE 
eo 60 JJ 2 1.55-1RANCT 
O09 40 KK = 7.55 
TFCICHG.ESD.0)GOTO 39 
LNULLCINULLC.JJ-KK) = UCACIJ-KK) 


UBAC JI KK) 


GOTS 40 
Ld LNLLLOI-JJ-KK) = UCACIIKK) 
69 CON™ INUE 


IFCICHG.EQ.0)GCTO 30 
ZIC = AIMAG(II) 

CrEHK = ASS(ZIC) 
TECCISHK.EQ.0. GOTO 298 
1FCINP.EQ.1)GOTO 208 

21 = CONJG(ZT) 

INP = J 

INULLC = INULLC + I 
ICHG = ICHG + 1 


i ESLOWCINULLC) = <1 
SCicHeG7y = <1 
EQCICHS) = 2I 
GOTO 34 
290 CONTINUE 
C 
Crt eotwserer=— Se oe eo ee es = aan en a= ee a ee ee 
<08 COBIJR = 0.0 
COBJL = 0.0 
00 S50 J = I-TROWS 
00 55 I = 1-55 
AVROT) = XSLCHCI. Jd) 
55 AVLCI) 2 TSLCHCI.J) 
Cc IFCITER.NE.O)JGOTO “5 


tJ 
© 
(an 


69 


61 


65 


68 
07 


IFCJ.LE.6)GOTO 45 

IF(J.EO.10)GOTO 4§ 

IFCJ.EQO.113GO1O 45 

IF(J.EQ.11)GOTO <5 

iF(J.EQ.<c1 GOTO 45 

GOTO Go 

CALL SROOTCESLOW(J).ROT..0108) 
wRITE(6+-S8IJ-ROT 

FORMAT(CIX.' SLOW LEFT EIGENVECTOR NO.’.IS./5X, 
* "EIGENVALUE * ° ElS.S<1AsEic.5s avon 
“*DESIRED VECTOR ESIGN VECTOR‘ ./) 
WRITECO SSC TCES(I-J)-TSLOW(I.J). 121.8) 
ARITES (6-47) 


FORMAT ( ‘ 3 06 s6 5 50 50 b6 04 p0 bt be cd 46 ot bt Oe be ot Ot nt te tn te be te LE ee ee 


aRITE(6-S6)(TDES(I«J)-TSLON(I-J)-129-16) 
ARITE(6+47) 
WRITE(S S6ICTDES(I-«J)-TSLOW(I.J).1817.55) 


FORMAT(CIASEL2 (Ss LXsEl 0.55 os poke tee oe Awelo,o8 J) 


03 57 JJ 2 1-1TUB1 
CO §7 KK = 1,55 
NMROJJ+KK) = RNULL(J-JJ+KK) 
00 60 JJ 2 1+NI-IRANCT 
DO 60 KK 4 1-Nl 
NML OC JJ+KK) = LNULLOJS,JS-KK) 
CALL CMATMLONMR-WVR. TUBI.55.1-ROBJ) 
CALL CMATML(NML-WVL »-NI-IRANCT.N1-1-LOBJ) 
RTEST = 0. 
co 61 JJ 


be lUSl 


RESROCJ) = RESROC I) © ROBIC IJ) *CONJG(ROBIC JJ) ) 


RESRICJ) = RESRICJ) + CABS(ROBI(JJ)) 
RESR(J) = RESR(J) * ROBJ(C JJ) 4% 
RINFR = CABS(ROBI(IJI)) 
IFCRTEST.GT.RINFRIGOTO 61 
REINFR(J) = RINFR 
RTEST = RINFR 

CONTINUE 
RESRO(J3 = SORTCRESROCJ)) 
RR = RESR(J) 
RESRR(J) = CSORT(RR) 

COBIR COBIR + CABS(RR) 

CCSJR = COBSR * CABS(RESRR(J)) 
COBJR = CCBJR * RESRICJ) 
CIES) £00. 
DO 6S JJ = 1+N1=[RANCT 
RESLS(J) = RESLSSJ) + LOBJ( JJ) 


i“ 


RESLO(J) = RESLOCJ) * LOBJ(JJ)“CONJG(LO8J(JJ)) 


RESLI(J) = RESLICJ) * CABS(LOBI(JI)) 
RESL(J) = RESL(J) © ECsJ(JI)**s 
ELDAM(JJ»J) = LOBJ( JJ) 


IFCIUND.EO.0)GOTO 63 
ELUND(JJ-J) 2 LOSI(JJ) 
RINFL = CABS(LOBJ(JJ)) 
IF(LTEST.GT-RINFL)JGOTO 65 
REINFL(J) = RINFL 
LTEST = RINFL 
CONTINUE 
RESLOCJ) = SORTCRESLE(J)) 
RL = RESL(J) 
RESLL(J) = CSORT(RL) 
CosJL = CO3SJL * CAES(RL) 
COBJL = CO8JL + CABS(RESLL(J)) 
COBJL = COBJL + RESLI(J) 
CONTINUE 


IFCIUND.£9.0)GCTO 68 

WRITECG «ZC CELUND(T+J)-J21-27)-T21-TROWS) 
IFCIADS.EQ.5 GOTO 93 
IFCITER.GT.1)GOTO 400 


ee ce ce ce ee ee we we oe 


Cc 


Co---- ~-------- DISPLAY RIGHT AND LEFT RESIDUALS------------------------- 

66 WRITE(C6-70 JCOBIR -COBUL 

70 FCRMAT(/5X.' «4% DAM-RT SLOW SUBSRACE RESIDUAL = '.EI2.5.,' “une, 

1 /5K. ome DAM=L7i SLOW SUSSPACE RESIDUAL = *.E12.5.° “aeu',/ 
an) 

c 

Ce+2----------- DISRLAY INDIVIDUAL RES IOUALS-------~---=---------------+--+ 

mwRITE (6-80) 

80 FORMAT(/1X.°UND EVECT SLOW STATE &GT-DAM RESIDUALS LFT 
1-DAM RESIDUALS‘ ./) 

WRITE (CS SL ICISTATECI). I REGRICI)-REINFRC(I)RESLICI) REINFL(I?}. 
“fs1.,1ROWS ) 

81 FCRMAT(GX. 1.2 ei CXeloebx- Cll. .S.IX.EIS.§,.2X-E12.8,1%.¢12.5) 

: 

C------------- SET UP ARSITRARY ELEMENTS FOR ADS SIMILAR TO ERSPACE------ 

Cnr  FCR RETRIS DO NOT LET RT STAS OR LT STAS BE ARSITRARY 

et ec | 

DO 7I I = 9,43 
cS trl, Ge.s IGOTO 7s 

TARBCIiI) = 1 

bias [ft-* } 

71 CONTINUE 

Cc COMMENTED OUT FOR RECRIS 

c DO 72 { = 29.354 

S taneGbrl) § 4, © 3 

Cc Rite ttl os) 

Sec CONT INUE 

oreo rrrrrro--- SOR <GedeS cAoe MESS ArelO Ee&SS ARS clheMENTS THAN FER-——-— 

Crenn nnn ----- SYMMETRIC CASES. COMMENT TRE FOLLOWING TWO OUT FOR SYMM. 

Coen wn wre CASES , cee wn een nnn nnn enn nnn rennn--= wenn nn nnn ee 

c [AR2(27) = <5 

c TARS(28) = 47 

1S ji USE THE FOLLOWING TWO FOR SYMMETRIC CASES 

TaARS8(26) = 45 
[TAR5(637) = 47 

& 

oan EAT fee een Sees Oe Ii cani ON QUe-—---------------=-----__- 

i; 

WRITEC 6-82) 

82 FCRMAT(/5X.°se44 ENTER “1" FOR MIN, OF LFT=DAM RESIDUALS ONLY 4444 
“°./5K. Sewn USINC ARS VECTOR ELEMENTS AS VARIASLESS «4% 
4° ./5%X. ‘wuss ENTER “2° FCR LEFT NULL SPACE INTRSEC. ANALY. “4H 
#' ./5X, ‘wane ENTER "2" TO SHIFT A DESIRED SLOW EIGENVALUE *«4m 
4", /5K. ‘www ENTER "6" TO EXIT ELSPACE AND WRITE OPTE! wuun 
*°./5X, ‘wea ENTER "5S" FOR MIN, OF LFT=DAM RESIQUALS ONLY »4H4 
w°./5Xe ‘wwe USING EICENVALUE AS VARIABLE. wuun 
w° ,/5X. “WMS ENTER “6° TO WRITE SEGEIG- OOS 
“'./5X, TON Nion “7° TO EAL ELSRAGS. wou 
4° ./5K, "swan ENTER "9" 7G EXIT ELSRACE AND WRITE XSLOW, “mew 
meas) 

READ(C¥.8}LADS 
IFCiADS.EO.7}GCTO 9000 
IF CIADS.EO-6JGCTO $30 
[IFCIADS.E0.46)GOTO 424 
le (iAos.G0.1)3CCTO 8 
IrFCIADS.€9.5)COTO 83 
IF(iADS.EQ.2ICOTO 84 
IFCIADS.EQ.0)GO~°0 S2l 
CALL FRTCMS(°CLRSTRN ') 

Corner errere---- RUE RISO VSS UE SS I III III III 

DO 87 II = 1,.iR0WS 
REINFRCII) = Q. 
REINPL(II) = 0. 


RESRICII)D = QO. 
RESLICII)D = QO. 
RESR2CII) = Q. 
Regtetrio = 0. 
RESLSCII) = CMRLX(O..0.) 


RESRSCII) = CMPLX(O..0.) 
RESRCII) = CMPLX(0.+0.) 


87 RESLCITiI) = CMPLX(O..0.) 
Cam wn enn nn me QUERY USER FOR EIGENVALUE SHIFT INFOQ---2---------  eadelanatbetbetntae 
a4 WRITE(6.73) 
73 FORMAT(/SX.'’ "He ENTER UNO VECTOR NO. YOU DESIRE TO SHIFT waew'. 7/5 
1X ,' 494M ENTER “Wo. “OQ UTT. wnww' ./) 


REAO(*,2)I1CHG 
CALL SROOT(ECICHG).SCHG. .0125) 
78 WRITE (6-76 )ICHG.SCHG 


74 FCRMAT(/SX.’ “444 ENTER NEW S-PLANE VALUE OF VECTOR ‘.I2.' saan ,s 
4 Sx.* CURRENT VALUE = '€12.5.1X.E12.5+7. 
P 5X.! REAL PART 2°./) 


REAO(*.75)R2Z 
WRITE( 6679) 
79 FORMAT (/S5X.' IMAG PART 7° ./) 
75 FORMAT(F12.5) 
READ(4.751CS 
CALL FRTICMS('CLRSCRN ‘) 
<4 = CMPLX(RI-CI) 
ECICHG) 2 CEXPC R44 .0125) 
EQCICHG) = ECICHG) 
INP = 0 
00 75 II 2 1.I1ROWS 
IFCISTATECII).NE.[CHGIGOTO 76 
SLCWCIT) = ECICHG) 


{NUL att 
GOTO 26 
76 CONT [NUE 
INULLC = [I 
GOTO 26 
e 
Coe aaa OP TIMI Caine ae eeeee = ee eee sn aes nok soo 3 ne eee se ee eee 
© 


83 WRITE(6-105) 
195 FORMAT(/SX.' 4H" ENTER SLOW INOEX OF THE RESIOUAL FOR AOS #448°,/) 
READ(*.85)I0(T) 
85 FORMAT (I2) 
CALL FSTCMSC( CLR SERN *) 
GOTO 24! 
84 CALL FRTCMS('CLRSCRN ’ } 
IF(INULL.NE.O)GOTO 86 
READ(7-QOVINULL 
READNC7.3)(CRUNULL(1,JJ«KK)«KK=1.55),JJ21.45) 
REAO(7.3)¢CLUNULL(1-JJ«KK) «KKE1.55),-JJ=1.357) 
86 IO(I) = INULL 


Cc 
C=S<s—s<3-22 INT] FOR ALDH 39=--=8= een = a8 a enna nnn en an ee wn waa 
241 [IR = [0¢1) 

RL = RESLCIR) 

RR = RESRCIR) 

ABR = CABS(RR) 

ABL = CABS(RL) 
Cc IF(A8R.GT.A8L)GOTO 111 
Cc OBJ = A8L = 
c GOTO 112 


tt OBJ = A8L 
ey ee IF CINFO.EQ.1)GOTO 221 
113 IN = 1 
ISTRAT = 0 
[ort = 3 
IONED = 2 
[FC IAOS.E€Q.1)IGOTO 90 
NOV = 2 
GOTO 91 
$0 NOV = [N#2¥55 
ot NCON = 0 
NGT = 0 
IGRAO = 0 
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NRA = iI 


rye 


BEING ENTERED FOR ESLOW('.12,’) Hawn! 
Peni oes, Ike lo. 50° 

elie srakee lc. Sed 

Z=PLANE BOUNOS 
VALUE IN 720.13 FORMAT. 
UNOAMAGED EIGENVECTOR NO. 


FORMAT(/5X.’ "ee ENTER VALUE OF ALPHA FOR OBJ #uuw',/) 


BUILO OESIGN VARIABLE VECTCR ANO UPPER/LOWER BOUNO VECTOR 


ACOLA 
ITPRINT 
Cc 
(EDP S225 SET 
Cc 
232 = ESLOWCIR) 
IF(TAOS.EQ.1IGOTO i114 
GALE SROCT (E53. 22. 7TSTSP ) 
XX01) 
XX (2) AIMAG(Z3) 
ARITE(S PS IIR.ESLOW( IR). Z2-1STATECIR) 
95 FORMAT(/5XK,‘*4** AOS IS 
Zs 
S$ = 
ENTER 
WRITEC6,720) 
720 
REAQ(*. L177 ALPHA 
GOTO °%2 
114 G4LE -SROOTC23- 22st STEP } 
aR ITECo-TLOVIR., ESLCW(IRI.2 
110 SCRMAT(/SX.' e448 405 [5S 
S$ = 
iN FSO.iS 
UNDAMAGED 
22 WRITE(6-115) 
115 FORMAT(/5X,°**4" REAL TOLERANCE = 
READ(«.117)5R 
WRITE(6-116) 
Ilo FCRMAT(/5X.° «eu TOLERANCE 
REAO( 4.117981 
Li? FORMATO LoD) 
C WRITE(6-118) 
cls FCRMAT(/5X. ‘wee ENTER WEIGHTING FACTOR Hee Ls) 
Cc READ(*, 117 WEIGHT 
CALL FRTCMSC’CLRSCRN 
‘os 
eA oie a GOO vas 
VLBC1) * ER 
Vest - ER 
VUBCO) + BI 
VLB(2) - Bi 
[FCXK(2).NE.0.7G0TO 94 
TIMAG 
94 Ss (ale 
SEIGs) 
CALL FRTCMS(’ CLRSCRN 
Con — — a a on wn nr oo on nn a wn ne ee ee = 
93 RESLCIR 
Cen FRE OG GE 
c CA5S(25) 
SSSses 24 OCT NEW OBJ 
Cc SCRT (25) 
c CAES(Z5) 
c RESLI(IR) 
OJ = RESLICIR) = ALPHA 
Cc REINFL(IR) 
IPR INT 
Creo n- eo ee eee 2=-NORM OF LEFT RESIQUAL OIFFERENCES 
Cc 00 700 II = 
c700 DIFFCII) = ELOAMCTI-IR) — ELUNOC(II.IA) 
& Or 
Cc EGQu7 1G) 11 = 
c710 OBJ + OLFFCIT)*CONJG(OIFF(III) 


FOR THIS EIGEN- 


»ISTATECIR) 

BEING ENTERED FOR ESLOW(’.I2.°) 
“REIS. Ss1Xs.Ele2.S+" J 

as eee ie a ob 
ENTER SOUYNOS ON THIS SLOW LFT EVECTOR 


EZGENVECTOR NO. 


——“—“—<X<_2.<._2<2 2 22 a = SS eee Oe we ewe ew Oe ew ew Oe ew Ow eee ew ew ew ew ee eS we ee 


+/5X, 

wuunt,/5xX, 
«suet ,/5X, 
wuwsu!,/5X, 
gee S/S Ks 


tament ys) 


aaawn’,. /5XK, 


wee’ /5XKe 
wuae! ,/5Ke 
aauul,/SX, 
4u4u',/SX, 


"asvun',f/) 


oO 


OBJ = SORT(OBJ) ~- ALPHA 
wo cern nn- eee" @m-INFINITY NORM OF LEFT RESIQUAL DIFFERENCE S---------- 
OBJ = 0. 
DIESt = 0. 
HO 715 (1 2 Ines? 
OINF = CABS(DIFFCII}) 
IFCOTEST.GT.OINF)GO'O 715 
Q3J = OINF 
DTEST = DINF 
C7I5 CONTINUE 
CALL ADSCINFO, [STRAT. IOPT. TIONED. ITPRINT. IGRAD.NOV.NCON.XX.VLB,VUS. 
1 OBJ-G-IOG»NGT.IC.OF+RA-NRA,NCOLA.WK. 10000. IWK, 1200) 
IFCIIMAG.NE.1)GOTO 99 
AX(22 = Q. 
94 WRITEC6+97 ITER» XXC1).XK(2)-OBJ 
97 FORMATCIX.° ITER NO.’ -ITS+* MACI) = * EYS.5+° XXC(2) 2 °.EIS.6 
© 4 (OBS ee rete oso 
ITER * ITER =) 
ICHG ISTATECIR) 
26 = CMPLX(XK(1).XxX(2)) 
c EC ICHG ) =e GExrP( cae 7012s] 
ECICKG) = 24 
ESLOW(TR) = ECiCHG) 
EOCICHG) = ECICHG) 
INULLC = IR 
IFCINFO.E9.0)GO7O 98 
IFCITER.GT.20)GOTO 98 
[FCO8J.L1T.1.E-01)GOTO 96 
INP = 0Q 
00 96 [ = 1,TIROWS 
RESRSCI) = CMPLX(0..0.) 
RESLSCI) = CMPLX (0.-0.} 
RESRICI) 2 OQ. 
RESCICL) 2G. 
RESROCI) = 0. 
RESLOCI) = 0. 
SEINFRC( 1} 
REINFL(T) 
RESRCI) = CMPLX(O..0.) 
96 RESLCI) = CMPLX(O,.0.) 
GOTO 25 
95 I4DS = 0 
IR = 0 
ICHG = Q 
ITER 
INFO 
IIMAG = 0 
INP = O 
GOTO 56 


oO 


qo0o aodanana 


1] i) 
Qo oa 
. . 


KK = [0(1) 

DO 120 LL = 1.85 

RX = REALCXSLOW(LL,+ KK) ) 

CX = IMAGCXSLOW(LL.KK)) 

TR = REALCTSLOW(LL. KK) ) 

TC = IMAGCTSLOW(LL + KK) ) 
125 XX(JJ) = TR 

XXCJJ*1) = TC 
Com eernrre=-- CURRENTLY [MAG PART OF THE VECTOR ARE NOT ARB FOR------- 
[e: RECR2S CASE 2S% ASYMMETRIC DAMAGE CASE(NOT FOR SYMM) 
C 27 ARBITRARY ELEMENTS FGR RECROS USE MM = 1-356 FOR SYMMETRIC CASE 


00 126 MM = 1,37 
126 IF CIARS(MM).EO.LLIGOTO 127 


VUSCJIJ) s xXCII) © ER 
VLEC(JJ) = XX(JJ) = 8R 
GOTO [2B 


le? VUB(JJ) = XX(JJ) © BR 
VLECJJ) = XX(JJ) ~ BR 


210 


128s IF(TC.NE.0.0)GOTO 286 
VUB(JJ*l} = 0.0 
VLB(JJ*1) 3 0.0 
GOTO 285 
286 400 787 MM = 1,37 
287  IFCIARB(MM).EG.LLIGOTO 288 
VUBCJJ*1) = xxX(Juel) + Bl 
Ves(iuciiee Ax(JU21) — 81 
GCTO 7285 
288 VUB(JJ*l) = XX(JJel) © BI 
VL3(JJ*1) = xX(JJ*1) = 8 
285 DF(Js) = 0. 
SFJ+1) = 0. 


Corwen ee ------ ZEROIZE GUT ELEMENTS WHICH ARE < *¢/- 1,.0-08--~------------ 
AM NOT ZTEROIIING OUT FOR RECRZS CASE 
S ABS OXXC( JJ} 
CTEST = ABSOXX(JJ*1)) 
Teo etes? COL0n760 TO!) 129 
IFC(RTEST.GT.1.E-C8)GOTO 130 
XX(JJ) 2 1.E-16 
VUB CII) 1 .E=-16 
VL3(JJ) = -1.0E-l6 
NF UCTEST oes, Weiss) ase 
MiP (eee ofl ot lacie ete ne) Soe 
MXCUJe1l) = 1.E=-16 
VUBCJJ+1l) = 1.0E-lo5 
VEct(JJ=1) = =1.0E-16 
5 JI ss JI Gees 
0 CONT INUE 
1 CALL ADSCINFO.ISTRAT.ICPT. [ONEO. IPRINT. LGRAGQ.NOV»NCON. XX-VL8-VUBS> 
1 Of8/-G-i0G-NGT.1C.CF.RA-NRA-NCOLA- WK,.10000. IWK. 1200) 
nes} GG Wey 
© EVALUATE O8JECTIVE FUNCTION 
Jl a yh 
ICONJG = 0 
KK = 101) 
BO 265 CL: = 1.55 
IF CIMAGCESLOW(KK)).€0.0.0)GOTO 246 
rl ICONJG = 1 
2456 TSLOW(LL»KK) = CMPLXC(XX(JJ)«.XXCJJ+1)) 
248 Je) ao SW Oo 
245 CONTINUE 
OSs e= Ul 
RLREAL = Q. 
RL = CMPLXCO..0.) 
PESLICIR) = 0.0 
REsG2t i.) (7.-0)..0 
SUSE 08 = 55 
2°90 WYLCII) = TSLOWCIT-IR) 
ODO 291 JJ = 1-NI-IRANCT 
DO 291 KK = 1.N1 
a) NML(JJ-¢KK) = LNULLOIR-JJ KK) 
CALL CMATMLONML- AVL NI@=LRANCTSNI-1-LO8J) 
LTEST = 0. 
00 292 JS = 1-NI-IRANCT 
Gage PLREAL = RLREAL * CAES(LOBI(JJ)) 


oO 


+ 
wt 


=e om oO nO oO A nA oom 
_— 
~” 
o 


C------- PLAN 2 O8J= SUM OF RL'S-------- 
Riw=uele COSJ( J} 
Cx+----- ASYMM TEST OS5J = 1 NORM-----~ 


RESLICIR) = RESLICIR) + CASS(LOBICIJ)) 
RESLOCIR) = RESLOCIR) + LOBJCJJ)*CONJG(LOBJ(JJ)) 
o=-=--—= AOVRMeGreeeye)| 08) = INFINITY NORM----<-=- 
RINFL = CéES(LOBIJ(JI)) 
[FCLTEST.GT.RiNFLIGOTO 292 
SEMEL CIiad = RINFL 
LTEST = RINFL 
CONT INVE 
RESLICIR) = SGRTCRESLO(1R2)) 


ao 


rs 


201 


Crer—]—--PLAN | OBJ---------- 
Cees RL = RL + LOBJCJJI*42 
CHAEH HNN 
IF CIADS.NE.2)GOTO 294 
COMME 
RLD = CABS(RLJ 
RL = CMPLX(0.-0.) 
DOe2es IIe ies 
0O 293 KK = 1.N1 
Ag es NMLOCJJ-XK) = LUNULLO1-+JJ-KK) 
CALL CMATMLONML > KVL» 37 Ni-1-LC8J) 
OO S45 J elas 
Ces RL = RL * LOBJCJJ) 
RLU = CABSC(RL) 
LF CRLUSGT REO GOTO. 2s 
OBJ = RLO + wEIGHT¥RLU 


GOTO 296 
acs OBJ = RLU © WETGHT*RLO 
GOTO 296 
C294 OBJ 2 RLREAL 
Lect PLAN Ss 5)---=-—----- 
C294 O8J = CABS(RL) 
Ce <-e-e= ee 


294 OBJC = CSCRTCRL) 
O84 = CABS(OBIC) 


> 


i eas wmee [NF-NORM CBJECTIVE FCR ASYMMETRIC CASE 11/3/B6-e--= 

Cc OBJ = REINFL(IR) 

[SS B=NORM, CSJECT IVE £UNCy GN 1/7 3/80-—-—=---~—--— Soha 

ano OB) = RESLICIR) 

ee 2-NORM * ORIENTATION OBJECTIVE FUNCTION 11/6/B86--------- 
DO 800 JJ = 1-55 

BOO OT(JJ) # TOESCJJ-IR) = TSLOW( JJ. IR) 


OTNORMCIR) = 0. 
DO 810 JJ = 1.55 


810 DTNCRM( TR) = DTINORMCIR) © OTCJJI*CONJGCOT (JJ) ) 
OTNORM( TR) = SORTCDTNORMC IR )) 
C OBJ = DTNORM(IR) * RESLICIR) 


=76 IFCITER<GT.cO00IGOTO 357 
TeCINFO.E0.0)GCTO 257 


GOTOe tet 
oo7 IFC ICONJG.E9Q.0)GOTO 249 
KK = IOC1) 


DO 305 LL = 1.55 
305 TSLOW(LL +KK*1) = CONIGCTSLOW(LL-KK)) 


C------------ RESUILD X.T+XLOW. TSLOW-----------~=-- ~~ -- -- ~- --~-=---~----- 


249 DO 300 KK = 1.55 
DO 302 LL = [-TROWS 
IFCISTATECLL).EQ.KKIGOTO 301 
302 CONT [NUE 
0O 303 JJ 2 1.55 
XSCJJ-KK) = TO JJS+KK) 
303 XTCJJeKK) = XSCJI°KK) 
GOTO 300 
201 0O 304 JJ = 1-55 
XSCJJ-KK) = TSLOW(JJ-LL) 
204 XT(CJJ-KK) = XSCJI+KK) 
200 CONTINUE 
CALL LEQTIC(XS.55.55, UNITYC,.55.55-0-WA. ITER) 
00 247 KK = 1,55 
e 0O 247 LL = [1,55 
TCKK-LL) = XTCKK-LL) 
XDCLL+KK) = UNITYCCKK.-LL) 
247 X(LL+KK) = UNITYCCKK.LL) 
0O 2°55 JJ = 1-TROWS 
DO 255 KK = 1555 
LL = ISTATECJJ) 
aos XSLOWCKK+JJ) = XCKK-LL) 


D0 250 KK = 1.55 
606250 Li = 1.55 
250 UNITYC(KK«LL) = CMPLX(0.0.0.0) 
C3 252 KK = 1.55 
Bsa GUNITVCCKK.KK) = CM°Lx(1.0.0.0) 
CO 475 I = 1.iRCWS 
Rese icl) = .0: 
weshrcl) = 0. 
RESRICE) = 0. 
RESLI(I) = Q. 
REGREG) = CHeLX(0,.0,) 
G75 - PESLCI) = CMPLK(0..0.) | 


GOTO 2c8 
400 CALL FRTCMS(°CLRSCRN ') 
Cc 
ee ee ee DISPLAY OSVECTIVE =UNCT [CNew------------~---------------- 
Cc 
WRITE(®)-G1010SU-RESLO(CIR)-CTNORM( IR). INFO, ITER. RLO.RLU- WEIGHT 
41c PCRMAT(C/SXK. ‘aes &05 CCMPLETE wee’, /5X, 
. : OBJECTIVE FUNCTION = °.E12.5./5X. 
" i coNCRM OF RESITOUAL = °.E12.5.«./5X, 
” ‘ DT 2=NORM OF DIFF = *.E12.56/5X- 
b ; INFO = ‘.f1.° ITER = °.14./5X. 
4 Seopeeeo UB = “selo. 5.1K." UND=LT CBJ = °.€12,.5./5xX. 
“ " WETGHT FACTCR = °.E12.5+/) 
ce ee ee DECICE TO SEENTER ADS. WRITE ACSOAT FCR ELSPACE RENTRY OR- 
Cc WRITE CPTEIG FOR RECONF RENTRY. 
we 


WRITE(6 +479) 
470 PORMAT(C/SX.°’*4e4 ENTER “1% TO REENTER ADS “uum /5X, 


« ‘ewes ENTER “2 TO WRITE ADSDATA ¥He%' 4 /5X, 
‘ ‘weed ENTER "2" TO WRITE XSLOW 4H". /5X, 
" ‘4446 ENTER "G4" TO WRITE SEGEIG «464°. /5X, 
“ ‘wees ENTER "0" TO WRITE OPTEIG “een. s) 


READ(“.8)IEEN 

CALL FRTICMS(‘SCLRSCAN ‘) 
TFC TEEN.ES.O0JGOTO 424 
IFCIESN.EC.cIGOTO §10 
teh eed eed. oI GUT Sol 
Ie=CTEEN.EQ.4)3GOTO 530 


00 500 f = 1-24 
RESRICI) = 0. 
RESLI(I) = Q. 
RESROCI) = 9. 
RESLOC(I) = QO. 
REINFR(I) = 0. 


RESNFLCI) = 0. 
RESRCI) 2 CMPLX(0.-0.) 
500 RESL(T) = CMPLX(0..0.) 


INFO = 0 

ITER 2 0 

GOTO 208 
c 
C------------- WRITE FILE 08 OPTEIG FOR USE BY RECONF------------~---~~-- 
e 
C-------- INSERT ACT* SENSOR UND ELEMENTS~----------- 
C-------- VALUES INTO SLOW EIGENVECTORS--WEO/LAT ELE 9-16---------------- 


C4acG DO 462 1 3 5-43 
C424 D0 Gel I = 9-43 

00 462 J = 38.55 
IFCJ.NE.41)GOTO 467 
IFC J.NE.G2)GOTO 467 
IFCJ.NE.465)G0OTO 467 
IFCJI.NE.S2IGOTO 467 
IFCI.NE.2)GOTO 467 
IfCI.NE.L0)GOTO 467 
IFCI.NE.11)GOTO 467 
IFCI.NE.1L2O GOTO 467 


ooo ano0ondo°o oO 


Pas 


Cc IFCI.NE.13)GOTO 467 

C IFCI.NE.146)GOTO 467 

Cc IFCI.NE.15)GOTO 467 

Gc TFC I.NE.16)GOTO 467 

Cc GOTO Gos 

Cc XDCI+J) = XSAVECI-J) 

C402 CONTINUE 

C-------- INSERT UND LAT ELEMENTS INTO SLOW LONG EIGENVECTORS------------ 
Cc DO 464 i = 5-8 

Cc XD(1.28) = XSAVECI.78) 

fe KOC1+ 39). = ASAVECI. 29) 

& MD(1.43) XSAVE(I.43) 

C64 XD(1I.46) = XSAVE(I.45) 

C-—— INSERT UNO LON ELEMENTS INTO SLOW LAT EIGENVECTOR S------------=- 


u 


Cc DO G66 [ = 1.4 

Cc XDOC1-G1) = XSAVE(I-41) 

Cc XD([.462) 2 XSAVE(T +42) 

Cc XD(1+465) 2 KXSAVE(T.45) 

Cé6 XDOCI.50) 2 XSAVE(T.52) 

Cc “RECONSTRUCT FAST EIGENSPACE FROM UNDAMAGEO EIGENSPACE- RECROS-- 
Cc ~FOR RECRIS 7-8-17-18-03+24 ARE ALSO SLOW STATES- 


C4246 DO 463 I = 9,43 


c do ces f =a 

c IF(J.EG.7)GOTO 465 

c IF(J.E0.3)GOTO 463 

c IF(J.20.17)GOTO 463 

c IF(J.E0.18)GOTO 463 

c 1F(J.£0.23)GOTO 463 

c TF(J.EQ.24)GOTO 463 

c XD(I.J) = XSAVE(I-J) 

C463 CONTINUE 

Bea INSERT FAST ELEMENTS OF CONTROL LAW FILTERS------------- 
c OG 465es os 1537 

c XD(65+J) # XSAVE(65.J) 

C465 XD(G7-J) = XSAVE(67+J) 

a RESTRUCTURE DEL TAGY REGRDERING THE Flash 1g=—--—-=—==== 


VECTOR/EIGENVALUE PAIRS TO SE THE SLOW EIGENSPACE 
G2G bo 700 f = 1.55 
CO 900 J = 1-18 
900 XOR(I+J) = XOC1T.J*37) 
OO 310 ft = 1,55 
DOr910 J = 19-55 


910 XORCI-J) = XOCI-J~-18) 
Do 920 I = 1-18 
920 EOR CE Iya EGCi=s71 
BOS9c so b= 15655 
925 EOR(I} = EDCI-13) 
0O ®30 f— = 1.55 
930 EGQC(i) = EGRII) 
DO 235 1 « 1-55 
DO $35 J = 1555 
925 XD(I.-J) = XORCI-J) 
SS REINSET FAST EIGENSP ACE qn - 2222 nr nn nnn wn en nn 
Cc OO 935 I = 9.43 
Cc DO 926 J 2 19-55 
c XDCI.J) = KSAVECI.J) 
C926 CONTINUE 
C<<<-=- =~ ae QUERY USER TO CHECK RECONSTRUCTED OPT SPACE FOR RESIDUALS- 


WRITE(5.610) 
610 FORMAT (/5X-° “ENTER "1" TO CALC RESIDS FOR RECONSTRUCTED SPACE’, 
“ 75Ks* *ELSE 0". ere A 
READ(*™.8) I RECHK 
IFCIRECHK.EQ.0)GOTO 468 
DO 630 I = 1-55 
DO 630 J = 1-55 
DR DREAL(XD(I.J)) 
DC = DIMAGC(XD(I.J)) 
R = SNGL(DR) 
C = SNGL(OC) 


214 


Somes XSET-J) = CMPLECR.C) 
D0 665 I = 1.55 
00 648 J = 1,ROWS 
KK = ISTATE(J) 
665 XSLOW(I+J) = XSC(I-KK) 
SOS S0t i c= lee 
RESLICI) = 0. 
Peon it) = 0. 
ESL2(1) = 9. 
RESRI(I} = 0. 
REINFR(I) = 0. 
REINFL(I) = 0. 
RESACI) = CMPLX(O..0.) 
$50 RESL(I) * CMPLX(O..0.) 
INFO = 9 
ITER 2 0 
GOTO 520 
658  WRITE(8.400)((XOCIL.J)-J21-55)5121.55) 
KRITE(B.660)(EDCI}-121.55} 
450 FORMAT(4020.13) 
GoTo 2009 


C------------- WRITE FILE IPASS XSLOW FOR OECOMP------------------------- 


521 [PASS = IPASS + 1 
AR ITE CTPASS.2 IP CHS, IPASS 
ARITECIPASS-GICISTATECI). Tel, IROWS) 
WRITECIPASS.SICCACI.J}.J21-55).121,55) 
WRITECIPASS-2ICCTCI.J}-J21.55).221-55) 
wRITECTPASS.Z)0(XSLOW(C IJ). J2i-TROWS). 121.55) 
ARI TECIPASS. 200 TSLCWC IJ) vel, LROWS). 121,55) 
wRITECIPASS.2)(CESLOW(C I). IT=1.1RCWS) 


GOTS 3000 
Cc 
Coweresrese === WRITE FILE [PASS AOSOAT FOR USE 8Y ELSPACEo-~-~--~-~----- 
Cc 


510 [Pass = IPass +1 
WRITECIPASS +2) IROWS.ITPASS 
WRITECIPASS-4ICISTATE(I).i=1-1ROWS) 
WRITECIPASS -3)CCXC1,J)-J2l-55)-i721.55) 
WRITECIPASS.3)C(TCI-J)-J21.55)-121.55) 
MRITECIPASS.3)0CXSLOW(I.J)-J21-TROWS).121.55) 
WREITECIPASS.3ICCTSLOW(CI.J)-Jel-IROWS). 121.55) 
WRITECTPASS. 2) (CESLOW(I)- T=1. (ROWS) 
SOTO 93000 


C------------- WRITE FILE 9,10,0R 11 SEGEIG OATA------------------------- 


530 CALL ©&R7CMSC°CLRSCRN °) 
WRITEC6.555) 

525 FORMAT(/SX,'s"ew ENTER DESIGN SEGMENT NUMBER “HHH! . 7s) 
REAO(* BIISEG 
[Seces coco + 6 
WRITECISEG.3)CCXSLOW(I.J)-J21-[ROWS)-T=1.-55) 
WRITECISEG.3)(ESLCWCI)}. 121. TROWS) 

2000 STCP 
ENO 


CMM MMMM 
SUBROUTINE CMATML (COMPLEX MATRIX MULTIPLICATION) 


c 

c 

c 

c COMPUTES: VY = aA » 8B 

le IA = 8 OF ROWS IN AA 

c LL = ® CF ROWS IN 8B AND # OF COLUMNS IN AA 

c 15 = * OF COLUMNS IN 58 

Cee ee eS CS SEE SVN MN ENN SEY EE EES een 
SUBROUTINE CMATML(AA,38-1A-LL.IB-YY) 
COMPLEX+B AA(55.55).38(55.55)-V¥(55,55) 
INTEGER I4-LL-18 


tJ 
—~ 
Cay 


DO 20 I = 1¢efA 

00 20 J = 1.18 

¥¥ Che 21) es CMPEX COC 0.) 

00 10 INDEX = 1-LL 

Y¥CIT.J) = YYCTJ) * AACT.INOEX) * BBC INDEX.J) 
10 CONTINUE 
20 CONT [NUE 
20 CONT [NUE 

RETURN 

END 


CEE EME EEE MMH EHH ee 


SUBRCUTINE SROOT: CONVERTS C-PLANE ROOTS TO 
S@PLANE ROOTS 


Cc 
2: 
c 
Cc 
c COR V.F, GAVITO wULY 19°86 
Cc 

C 


Se SS be tO MG OG MG Oh OG Dh De Oe OO Oe a Be Oe Oe MG ah th Oe tg tg Oe te te tg OG hg OG te te th te hg te te te hg tg te tg Oe te Se te Mh te te td te te Oe te te Me td Oe te ng Ad te te he Oe te te be Oe 
SUBROUTINE SROOT(2-S.-T) 
IMPLICIT REAL “4 (A-“H.P-2) 
CCMPLEX*8 2.S 
RS = [MAG(Z) 
RC = REAL(Z) 
B = (ATANZ(RS.RC) IST 
R CASSe) 
A zs -LOG(RI ST 
S = CMPLX(-A.8) 


ta 
u 


ZG 


Sear ee RECONFIGURATION RUN 


RECINE 

VS SERTReN COMPILER ENTERED. 12:59:29 
"4MAINe™ END CF COMPILATICN 1] "sannm 
ee SND OE Gam ilar LON 2 ee aes 
"*RANKD™* END OF COMPILATION 3 ¥tannn 


wMWRMATD™ END OF COMPILATION 4 ‘™a4w 


aeSRCOT** END OF COMPILATION 5 
VS FORTRAN COMPILER EXITED. 


aN AM 


12:59:36 


LOASING RESONF AND ORACLSA 
execs .0N BEGINS... 


ENTER "i" TO WRITE UNDAMAGED EIGENSTRUCTURE,2& 
SYST. MATRICES.(READ “RECONF® DATA AI, 
“UNDIEG”. “UNDASC™-.& "CLM". 
ENTER “CO TO READ UNDAMAGED EIGENSTRUCTURE AND 
WRITE SLOW RT SUBPACE DATA FOR USE BY 
"ERSPACE” (WRITE "ERSPACE” DATA Al) 
ENTER "3" TQ COMPUTE RECCNFIGVRED GAINS. 
(WRITE “FRECCN”™ DATA AI} 
ENTER "46" TO COMPUTE RECCNFIG. EIGENSTRUCTURE 
AND TIME RESPCNSE (OPTMATD.OPTPLOT ) 
ENPen 5 efor cOMPUre OoAMD MRITE FILE le 
"EXACT DATA. 
2 
as entes -)" TO MODISY DESIRED EIGENSTRUCTURE #"=% 
alice Else seer OTN 
0 
uaun ENTER "1" TO DISPLAY DESTRED EIGENSTRCTUREN He 
aS 2SeNtEs O OTHERATSE. bl oN 
0 
aumee CALLING LSVDF FOR 8 #"a" 
nese Soe CF “BY COMPLETE «""™ 
wunue RANK(B} = 10 % 
wee OC ALCEING LSVDF FOR C “9s 
eae ovor Ge Cc COMPLETE “=*« 
uuwe RANK(C) = 18 aun 
SLOW STATE NC. I UND STATE NO. 38 S = -0.22794E+01 O.27016E*O01J 
SLOW STATE NO. 2 UND STATE NO. 29 3 = -9.22796E*01 -O0.27016E*014 
SLOW STATE NO. 3 UND STATE NO. 40 S = -O0.28114E+01 0.00000E+00) 
SLOW STATE NO. 4 UND STATE NO. G1 S = -0.i870SE°0! 0.2615°E+01) 
SLOW STATE NO. § UND STATE NO. 42 3 = -O.18702E*0! -0.2615°E*O01J 


APPENDIX G 
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POR F-15, CAS@n DAMAGE 


SLOW STATE NO. 6 UND STATE NO. G3 S$ 2 
SLOW STATE NO. 7 UND STATE NO. 464 § = 
SLOW STATE NO. 8 UND STATE NO. 465 S$ = 
SLOW STATE NO. 9 UND STATE NO. Go S 2 
SLOW STATE NO. 10 UND STATE NO. 47 S = 
SLOW STATE NO. 11 UND STATE NO. 468 S 2 
SLOW STATE NO. 12 UND STATE NO. 469 § 2 
SLCW STATE NO. 13 UND STATE NO. 50 S$ = 
SLOW STATE NO. 14 UND STATE NO. $515 = 
SLOW STATE NO. 15 UND STATE NO. S2 S = 
SLOW STATE NO. lo UND STATE NO. 53 3 = 
SLCW STATE NO. 17 UND STATE NO. 54 § = 
SLOW STATE NO. 18 UND STATE NO. 55 S 2 
Re Fa. c9711.23 1os00:04 

ERSPACE 


VS FORTRAN COMPILER ENTERED. 13:00:22 
MSMAIN** END CF COMPILATION 1 “anne 
“*CMATML™*® END CF COMPILATION 2 we44es 
*4SROOT** END OF CCMPILATICN 3 “HM HH 
VS FCRTRAN COMPILER EXITED. 5:02:35 


LOADING ERS? ACE 
EXECUTION SEGINS... 


~0.51146&-00 
~-0.11588E°01 
=Qeo90Gce °UL 
~-0.175350E-01 
~0 .cOC36E*O1 
~0.146624E+01 
0.36382E-02 
=0, LI000E+01 
0.00000E+90 
 grisple Ui Ee = oie Py 
0.00000f-90 
-0.cC0ClE-01 
-Q0.cOOd1E*O1 


ue“¢ INDICES OF SLOW EIGENVALUES “es 


28 39 60 41 42 
43 44 65 46 47 
48 49 50 51 52 


53 54 s> 


“4a THE FOLLOWING VECTOR DISPLAYS THE NEARNESS OF 
wees EACH SLOW EIGENVECTOR TO THE ALLOWAELE RIGHT 
THE DAMAGED Fi8 MODEL. 


wu¥* HAND SLOW ELGENSPACE FOR 
0.349129958201780-02 
G.24919956201780-02 
0.29565434995540-02 
63022350c7 cc 940-02 
63032392732960-02 
19271623323 586-02 
.21766807029600-02 
606714674448160-02 
2923381 2152720-03 
»709962569715670-06 
~14698266396921D-02 
7207061731°540-02 
.28556288°88210-11 
~25507612251550-12 
.89902872990800-05 
0.89444682115200-10 
0.690717512463790-12 
0.00000000000000-00 


oo G&G 


oo Co a0cd oe ao & 


b I Ba] 


wane 


ELSE “ENTER. 0. 


wen 


WRITING ELSPACE DATA FILE 08 «4 


0.00000E+*00J 
0.00000€-00J 
0.00000E*00J 
0.00000E*00J 
0.00000E*00J 
0.00000E*00J 
0.00000F+00J 
0.0000CE*00J 
0.00000E+00J 
0.00000E*00J 
0.Q0900CE-00J 
0.00000E-00J 
0.00000E-00J. 


uwyuw 
eaue 


nawenM 


ENTER “1" ITF RESIDUAL IS UNSAT TO RENTER ADS “444 


Mae 
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e@esaa 


eels 


8 


e 
o 


COMP <° 
2ank (2927) 


VS FORTas8 
“wean 


ve 


- 
- 


Saye 


7 
- 


GE-9 


Lae ee aA 
wa 


4 
~ 


fd] 


© 


re 
re 


we 


- 
ie pee 
= 


a ee 


q) 


aed 


wn 


-e 


oO 
Led 


” 
we 


™ 


a) 


- 
= 
— 


3.9555C 


Led 


sada 
@eaen 
eeoasd 
éeae 
g@aeeun 
sasen 
a@aua 


Sues 
SL 


~ 
- 


oa 
eed 


- 


aX 
er 


Vv 
Dow wea 


eon, 


P Alt 


o 
~ 


Sony ek 
> wr. 


TO 
=2 


bak Atel 
“5° 


2 


—— 
= 
- 


anes 

= 
esen et 
sean 
eaaw 


S s8e 


-~ 
-” 


SISAL RGR A 


THE PE 


= 
Cr 


LCa INDEX 


9 


240 


0.468I1GE*01 
0.468146E*01 
O.c67L1E*02 
0.63941E-02 
0.63961E-02 
0.77#Ge2°0) 
0.48743E+0) 
0.7416°E=-01 
0.10600E*01 
0.146616E-01 
0.8149S5E-02 
0.69318E&+00 
0.193 16E-01 
0.25554E-61 
0.36294E-01 
0.00000E+090 
0.00000E+00 
0.00090€+00 


wwe ADS IS BEING ENTERED FDR ESLOW( 1) “au 
unaw 2 = O.97136E°00 O.3c81SE-015 wun 
wee Sos -0.0°790E*01 sor Olse-9)4 “awe 
wee ENTER BOUNDS ON THIS SLOW LFT EVECTDR «uae 
wawe IN F20.13 FDRMAT. wun 
wee UNDAMAGED EIGENVECTOR NO. 384" 
wuwuw REAL TOLERANCE = “#4 
0.001 
“wwe IMAG TOLERANCE * ‘#4 
G-001 
“we ADS COMPLETE stale 
DBJECTIVE FUNCTION = 0.61855E+01 
2-NDRM OF RESIDUAL = 9.61855E*01 
DT 2-NOR“ OF DIFF = 0O.27028E-02 
INFD = 0 ITER = 525 
DAM-LT O85 = Q9.00000E€*09 UND-LT D8J = 0.00000E+*09 
WEIGHT FACTOR = Q.10000E-01 
“eae ENTER “1 TO REENTER ADS wae 
a4uM ENTER "2" TD wRITE ADSDATA «#4 
wee ENTER "3" TO WRITE ASLOW wean 
«ew ENTER “G" TD WRITE SESGEIG «wer 
“ue ENTER -"O" TD WRITE DPTECIG ‘wee 
1 
wens DAM-RT SLOW SUBSPACE RESIDUAL = 0.42668E-01] “4% 
wus DAM-LT SLOW SUBSPACE RESIDUAL = O.7051f0E°00 «urs 
UND EVECT SLDBW STATE RGT-DAM RESIDUALS LFT-DAM RESIDUALS 
28 1 0.4604692E-02 0.23770°9E-02 0.61855&°01 
39 = 0.4604688E-00 O0.37707E-92 0.61855¢-*01 
40 3 O.3c218cE-02 O.e9se0lo-0e G.47790E*Oe 
41 4 0.460°SE-02 0.3728BE-92 Ge eoScce—0. 
G2 5 0.45815E-02 0.374428-02 0.9052<€-02 
G3 6 0.c46062E-02 0.2°5697E-02 O-1099SE*02 
44 7 O.266CCE-02 0.26819S5-G2 0.68938=-91 
G45 8 O.42096E-02 9.276472E-02 0.10488&+00 
45 9 O.37225E-93 ©.f5227E-03 0.15057&+01 
G7 10 0.118469S-03 0.964254E-04 0.20671E-01 
48 tl O.1S197E-02 0.12792E-02 0.11536E&-01 
49 e O.918Z27E-02 0.80928E-02 0.692355E*00 
50 1 0.553225E-04 0.47874E-04 O0.27317E-01 
St 14 ~-37652E-05 0.26575c¢-05 O.235157E=-01 
ru 15 0.4256CE-03 0.42198E-03 0.51955e—07 
53 16 0.922009E-03 0.67544E-03 0.00000€+00 
54 17 O.2701SE-03 0.c¢685c&-03 0.00000E*00 
55 18 0.24582E-05 30.242428-05 0.00000E+00 
“wee ENTER “1° FOR MIN. OF LFT-DAM RESIDUALS ONLY «*<* 
“awa USING ARB VECTOR ELEMENTS AS VARIABLES #4» « 
ueuM ENTER “O'' FOR LEFT NULL SPACE INTRSEC. ANALY. 44H 
Meuse ENTER “3" TO SHIFT A DESIRED SLOW ELGENVALUE “44% 
“uum ENTER "4" TO EXIT ELSPACE ANO WRITE OPTEIG “wus 
“Mew ENTER “S" FOR MIN. OF LFT-CAM RESIOQUALS ONLY «44s 
eis USING EIGENVALUE AS VARIABLE. ves 
weww ENTER “6 TO WRITE SEGEIG. waun 
“uw ENTER “7° TO EX1T ELSPACE. wun 
«ewe ENTER “O" TO EXIT ELSPACE AND WRITE XSLOW. wan 
220 


03 


0.001 


C.001 


UNO EVECT 


Le 


wa 


aan 


waun 


bi I olla] 


eA 


saan 


“une 


www 


OAM-LT OSJ = 


ENTER SLCW 


ADS iS SEING ENTERED FCR ESLON( 3) 
E= 0.95347E*G0 0.0C900E+COy 

S$ 2 -0.28118E*0! 0.002300E-00J 
ENTER SOUNOS ON THIS SLCW LFT EVECTOR 
IN FL0.13 FCRMAT. 


UNDAMAGED EIGENVECTOR NO. GOvwe 
REAL TOLERANCE = www 
IMAG TCLERANCE = «uu» 

ADS COMPLETE wee 


O8JECTIVE FUNCTION 
T-NORM GF RESISUAL 
DT 2-NGRM OF OFF = 

INFO C jer = 536 
9.0CO00E*00 UNO-L7T 


J.86096E*01 
0.8609SE+01 
0.28879E-C2 


it 


O8J = 


www 


INOEX OF THE RESIDUAL FOR AOS sx 


ed 


Saw 


a 


| 


0.00000E*00 


AEIGHT FACTOR = 3.10C00E-0i 
ueew ENTER “2° TO REENTER AOS ween 
ween ENTER “2 TO ARITE AOSOATA sawn 
wwen ENTER "3" TQ WRITE XSLOW bEedialel 
wewn ENTER “46% TO WRITE SEGEIG ¥eMS 
SPP SENTER, O10 ARITE OPTEIG “Nwe 
wennw CAM-RT SLCW SUBSPACE RESIOUAL = 0.43721E-01 “awe 
sume DAM@-LT SLOW SUBSPACE RESIDUAL = 0.41330E*02 vue 


SLCW STATE 


wey ENTER 


wi wo 
www 


ENTER 
ENTER 


wo i 


USING ARS VECTOR 
"2" FOR LET NULL 
"2" TO SHIFT A OESIREO SLOW EIGENVALUE 


0.41267E-02 
0.41385E-02 
GO. 31290E-02 
0.45921€-02 
G.46600F-02 
0.¢5484E-02 
0.¢7548E-02 
0.42097E-02 
O-s2e8c=-02 
O0.114662E-03 
0.153°8E-02 
0.°8442E-02 
0.52751E-04 
0.34719E=-05 
0.462825E-G3 
0-92205e-05 
0.c6°003E-05 
0.23985é-05 


RGT-DAM RESTOUALS 


0.38624E-02 
»287672-02 
»2B8791E-02 
.272928-02 
37467E=02 
2461862-02 
26023E-02 
.36673E-02 
3798Z8-05 
689720206 
128925-02 
0.93774E-02 
0.47870E-04 
0.32888E-05 
0.462294E-03 
0.66797E-03 
0.25062E-03 
0.317728-05 


Qa a 


Se oS eo oe ae ec 


ANALY. 


0.61855E-01 
0.61855E*01 
0.860096E*01 
Op U5ccE-0c 
0.9052°E-02 
Jp LUgsee soe 
0.68938E*01 
0.10688E+00 
0. 15057e+01 
0.cO671E-01 
0.11536E-01 
0.693235E*00 
O.er7sh7e-01 
O-.cslS7e—-01 
Veo benge—0l 
0.00000E-00 
0.00000E*00 
0.00000E+00 


"1" FOR MIN, OF LFT-OAM RESIOUALS ONLY #44 
ELEMENTS AS VARIABLES**™& 
SPACE INTRSE 


ww 


td 
ty 
— 


LFT-OAM RESTOUALS 


0.46814E*01 
0.40814E-01 
0.54260E*01 
0.627941E-02 
0.5639461E-02 
0.777462E*01 
0.48742E*01 
0.746i61E-01 
0.12600E°01 
0.14616E-01 
0.81495E-02 
0.69318E+00 
OSheolee—o] 

~23054E-01 
J.36294E-01 
0.00000E*00 
0.00000E+00 
0.00000E+00 


06 


0.001 


0.001 


UND EVEC 


38 
39 
40 
41 
G2 
43 
GG 
4s 
46 
47 
48 
ge 
50 
51 


”“ 
= 


4 
2 


54 


“ane ENTER “G* 
suus ENTER “S” 

wnun 

“wun ENTER “6 TO WRITE 
quuw ENTER "7" 

dg ue ENTER Ta fu 

“uuu ENTER 

wuew ADS 


TO EXIT ELSPACE AND 
FOR MIN. CF LET-DAM 
USING EIGENVALUE AS 
SEGEIG. 
TOD EXIT SLSPACE. 
TO EXIT ELSPACE AND WRITE XSLOW. 


IS BEING ENTERED FOR ESLOWL 6) 


VARTAS5LE. 


SLOW INDEX OF THE RESIDUAL FOR ADS 


wes 


WRITE DPTEIG 
RESIDUALS ONLY 


wuuw 


wad 


wwe 


4uman 


ot ot ot 


N 
1 


4 
iT] 


OQ. 992526 +09 
-“0.SI1CSE*0° 


0.00000E*00J 
0.09000E+00U 


ann 


+ tw 


ee 


wee 


wuun 


st tt 


wuyett 


we we 


udu 


ENTER BOUNDS ON THIS SLOW LFT EVECTOR 


IN F20.13 FORMAT, 
UNDAMAGED EIGENVECTDR ND. 


“uns 


REAL TOLERANCE = 


uMwM 


“uu IMAG TOLERANCE = ate 
“ane ADS COMPLETE 
DSJECTIVE FUNCTION 2 
2=NORM OF RESIDUAL 2 
DT 2=-NORM DOF DIFF = 
INFO 3 9 ITER 3 374 
DAM-LT DBJ = 0.00000E*00 
WEIGHT FACTOR = Q.10CO0E-01 


“Hue ENTER 
ENTER 
ENTER 
ENTER 


ENTER 


bie (nd: 
www pA UEACS 

e Ly 
www eat 
yun 


LUA os 
Wf] 


euMe 


aun 


ye 


DAM-LT 


T SLOW STATE 


on mn UW HR WH fi 


o 


~—_- 
- Oo 


im 
3 


— > + os 
a mi KR Ww 


~ 
~ 


TO REENTER ADS 
TO WRITE 
TO WRITE 
TO WRITE 
TO WRITE 


ASLOW 
SEGelsG 


DPTEIG 


DAM-RT SLOW SUBSPACE RESTOUAL 
SLOW SUBSPACE RESIDUAL 


RGT-DAM RESIDUALS 


0.412835-02 
0.41269E-02 
0.35130c2E-02 
0.4S9°SE-02 
0.46698E-02 
0.2548 7E-02 
0.27545E-02 
0.461916E-02 
0.3988 1E-05 
0.1146646E-03 
0.1SZ27E-02 
0.°842S5E-02 
0.52782E-04 
0.2546°E-05 
0.462531E-03 
0.°0816E-03 
0.26202E-03 


wuuwe 


4 ot 


Gzunun 


“He 


O.98729E*01 
0.98729E+01 
0.18694E-02 


UND-LT DB 3 


ADSDATA 


wMaw 


WM 


wenn 


“uw 


bi! 


0.3864S5E-02 
0.38727E-02¢ 
O.2879SE—-d2 
0.3/7 2955-02 
0.37442E-02 
0.0418 9-02 
0.26020E-02 
O.S6321E-02 
0.379°81lE-03 
0.89769E-046 
0.1S5311E-02 
0.93768E-02 
0.47872E-04 
0.34311E-05 
0.42198E-03 
0.646633E-03 
0.26049E-03 


0.423688£-01 
0.40206E+02 wHaw 


0.00000E+00 


be Me atta! 


0.618S5SE+01 
0.6185SE+01 
0.86095E*01 
0.90S2°E-02 
0.905clE-0¢ 
O.°387 252-01 
0.638°38E+01 
0.104688E+900 
0. TS057E 01 
0.20671E-01 
0.11536E-01 
0.6933S5SE+00 


°0.27317E-01 


0.c31S7E=01 
O° S1 °SSe=00 
0.00000E+00 
0.00000E+00 


LFT-DAM RESIDUALS 


0.46814E*01 
0.4688 14E*01 
0.54260E*01 
0.03941E-02 
0.63941E-02 
0.69°382E+01 
0.48742E+01 
0.74161E-01 
0.12600E+01 
0.14616E-01 
0.81495E-02 
ds52S 162-00 
Glas se=81 
0.22054E-01 
0.380 94E-01 
0.00C00E+00 
0.00000E+00 


so 


i 

06 

0.901 

0.001 

L 

UNO EVEC 
28 
29 
40 
4i 
Ge 
43 
44 
45 
46 
47 
48 


18 


0.31984E-05 


0.31771E-05 


0.00000E*00 


weve ENTER “1" FOR MIN. OF LFT-CAM RESIQUALS ONLY «44H 
s4a6 USING ARB VECTOR ELEMENTS AS VARIABLES #446 
www ENTER "CO" FCR LEFT NULL SPACE INTRSEC. ANALY. “enn 
yen ENTER “S" TO SHIFT A CESIREO SLOW EIGENVALUE «xen 
wee ENTER "4" 7O EXIT ELSPACE AND WRITE OPTEIG Awe 
wees ENTER “S" FOR MIN. CF LFT-OAM RESIDUALS ONLY «444 
tte USING EIGENVALUE AS VARIABLE. “yun 
weenie. 6" TO WRITS SEGEIG. wee 
ome SNE ER 7 70 EXS7T ELSP ACE. 4 en 
Pit ENTER “OQ” TC EXIT ELSPACE AND WRITE XSLOW. SIS tg 
wae ENTER SLOW INDEX OF THE RESIOQUAL FOR AOS «wn 
weme SOS [S EEING ENTEREO FOR ESLOW( 6) «ene 
weew 2 2 8 9.99363E*00 0.00000E-00u 1 olla 
«eee S = -0.51122E°00 0.00000E+00J wee 
wee ENTER SCUNDS ON THIS SLCW LET EVECTOR ween 
weueu IN F20.13 FORMAT. wes 
wwew UNDAMAGEO EIGENVECTOR NO. GZvevn 
“www REAL TOLERANCE = “ae 
wea4  4aG TOLERANCE = “4 
wees ADS COMPLETE aM leis 

CBYECTIVE FUNCTION = 0.86568&+01 

2-NCRM CF RESIOUAL 32 0.8656588-01 

OT 2=NORM OF DIFF = -99166€-O0¢ 

INFO = Q ian = Mee 

DAM-LT CBJ = 0.Q0000CE*00 UNO-LT OBY = 0.C00000E+00 
WEIGHT FACTOR = 0.1CQ00E-02 


“mint ENTER 
ENTER 
SATER 
=NTER 
ENTER 


wwe 
be ie Mi 
wunw 


be ie Mad 


weMmn 


“wupes 


T SLOW 


CAM-LT 


oo l e 
o> ee 
- 
tev ee 
a 
FA 1 
= oe 


STATE 


wm NN Ww fT) 


—- Oo 2170 ON Ga 


—_— — 


REENTER AOS 
WRITE 
ARITE 
AA ITE 
ARITE 


SLOW 
SeEGeIG 


OPTE.G 


OAM-RT SLOW SUBSPACE RESIDUAL 
SLOW SUBSPACE RESIQUAL 


ACSDATA 


“weeny 


wwe 


wewe 


waewed 


wwawe 


RGT-CAM RESIOUALS 


0.41294E-02 
0.41349E-02 
0.31202&=02 
0.460490E&~-02 
0.4659°E~-02 
0.<548cE-02 

cet oele-Oc 
G4 1S) SE-0°5 
0.23°S374E-03 
0.11455¢e-03 
0.15326¢-02 


-28665E-02 
- 28705E-02 
-08796E=02 
37540E-02 
~57445e-02 
24184E-02 
<6018€-02 
-28SclE-02 
~37°75E-05 
-89779E~-04 
lle lle-0- 


o0o0o0c0d€«~wmWwd~C“i “(CC OUCUCNULCCULUCUCOUCUCOULUCO 


0.43720E-01 “«~ 
0.28988E-02 


we 


0.61855E°01 
0.61855E*01 
0.86095E+01 
O.7052°8-02 
Osos cce-U. 
0.86508=°01 
0.68°S8E°01 
0.10485E+*00 
0.18057E*01 
O.20671E=-01 
0.11536E-01 


228 


0.00000€+00 


LFT-OAM RESIQUALS 


0.46814E+01 
0.46814E+01 
-54260E°01 
6394 1E~-02 
-63941E-02 
-59 7.556 °01 
-468743E+01 
-74161E-01 
-12600E&*01 
-14616E-01 
-81495E&-02 


So 


o0o 0-90 8 8 Aa Aa 


49 12 0.98419f&-02 0.93750E-02 0.69335E*°00 0.69318E+00 
50 eS 0.52770E-04 0.47872E-04 O.27217E-91 0.193l5E-01 
81 14 0.235123E-05 0.34142€-05 0.2315 7E=-01 »25054E=-01 
a 15 0.42532E-03 0.460198E-03 0.519S5Se-01 0.36294E-01 
% ls 0.92297E-02 9.67828E-02 0.00000E*00 Q.00000E+00 
54 Ler, O.26201E-035 0.20048F-03 0.00000E*00 4.00000E-00 
55 18 0.51°@1E-e5 ~21768E-05 0.00QQCE*CO 9.0090CE+00 
wu ENTER “1" FOR MIN. OF LFT-QAM RESIDUALS ONLY ¥448 
“un USING ARS VECTOR ELEMENTS AS VARIABLES 
wwe ENTER “2 FOR LEFT NULL SPACE INTRSEC. ANALY. «uue 
M444 ENTEQ “3 OQ SHIFT A DESIREOQ SLOW EIGENVALUE “#4 
«mew ENTER "4" TO EXIT ELSPACE ANO WRITE OPTEIG www 
¥444 ENTER "S* FOR MIN. OF LFET=O0AM RESIOQUALS ONLY «4 
«wun USING EIGENVALUE AS VARIASLE. wud 
«ave ENTER “6" TO WRITE SEGEIG. «uw 
“eye ENTER “7" TQ EXIT ELSPACE. 44am 
yee ENTER “O" TO EXIT ELSPACE ANO w#RITE XSLOW. 4 4 M6 ie 
iL 
“a4 ENTER SLOW INOEX OF THE RESIQUAL FOR AQS “4s 
99 
“uu AOS [S BEING ENTERED FOR ESLOW( 9) “a4 
wee 5S z= 0.99978E*00 0.00000E+00U mee 
ewe GS = -0.178025-01 0.90000E+00N soe 
“uss ENTER SOQUNOS CN THIS SLOW LFT EVECTCR sem 
“wee IN F20.12 FORMAT. wee 
w“u4 UNDAMAGED EIGENVECTOR NO. Gowen 
“uu REAL TOLERANCE = NSIC 
0.001 
“444 IMAG TOLERANCE = L Raltalial 
0.00} 
a AOS COMPLETE ba al 
OBJECTIVE FUNCTION = 0.13S50SE*01 
2-NORM OF RESIQUAL = 0QO.1350SE-01 
OT 2-NORM OF OIFF = 0.28475E-02 
TINEO) = 0 Mila Brin 
OQAM=LT O8J = 0.00000E-00 UND~LT O84 3s 0©.00000E+00 
WEIGHT FACTOR = Q.1C000E-01 
wee’ ENTER “1 TQ REENTER AOS 44 
“wey ENTER “2" TQ WRITE ACDSDATA “4 
yu ENTER "3" TO WRITE XSLOW we 
u¥e4 ENTER "4" TO WRITE SEGEIG “44 
wewe ENTER "OO TQ WRITE OPTEIG “4% 
l : 
“auew DAM=-RT SLOW SUSSPACE RESIQUAL = O0.43731E-01 “KM 
“444 OAM-LT SLOW SUBSPACE RESIQUAL = O.38823E+00 «uns 
UND EVECT SLOW STATE RGT-QAM RESIQUALS LFT-QAM RESIQUALS 
28 1 0.41292€-02 0.38661E-02 0.65185S5E*01 0.46814E-01 
39 Ad O0.413468E-02 0.38702E-02 0.01855E*01 0.46814E-01 
40 3 O.Z1302E-02 0.28796E-02 0.80095E*01 0.542580E-01 
41 cA 0.48060E-02 Q0.37540E-02 0.90522E-02 0.53941E-02 
42 5 0.48720E-02 O0.27594E=-02 0.90522E-02 0.63941E-02 


43 
4G 
6§ 
46 
47 
48 
ga 
§9 
a 
Sic 
53 
84 
55 


wean 
“uwad 
weae 
wow 
wanuwy 
aque 
oo tf 
“wade 
4 Oe Of of 


wna 


“ENTE 
“ELSE 


wee DAM-RT 


= 
' 


ane 


ENTER 


ENTER 
ENTER 
ENTER 
ENTER 


ENTER 


ENTER 
ENTER 


R saa WI 
ect 3 


DAM=L 


“i 6G: 


wo © 


10 
in 
ve 
13 
146 
tS 
lo 
7? 
18 


"1" GOR MIN. 


0.cS“681E-02 
0.278460E-02 
0.461914E-02 
0.398 72E-02 
0.11465e-02 
Cat5S3266-02 
C.984¢12c-02 
WiSa7 Fee 0G 
0.551°03E-05 
.Socsce-Ue 
0.9350SE-03 
0.2620 1E-03 
O22 19s 2-05 


-cS6183E-02 
2£601Se-0e 
~S6SCLE-02 
set sfce-O0s 
»8978°E-06 
-LI811E-02 
9376S5¢-02 
-478732-06 
~S41465E-05 
«Ge 19Se=-035 
-97827E-03 
~06068E-93 


-3176GE-05 


ooo0n0doe0doeomUmcrtmrmlUCUKUWUlUCOUCOOUCOOWCOlUCUCOD 


0.86568E-01 
0.68958E-01 
0.104688E€+00 
0.1250SE*01 
0.cO0671E-01 
0.11826e-01 
-69335E+00 
~o7Z17E-O1 
ev sore Ol 
od 55 c— Oil 
-90000E+00 
-00000E+00 
-00000E+00 


oo 0 OO 4 A 


OF LFT<-DAM RESTOUALS ONLY #4 


USING ARB VECTOR ELEMENTS AS VARTAELES <4 


TO CALC RESIOS 


UND EVECT SLOW STATE 


28 
3? 
40 
Gl 
G2 
a3 
GG 
GS 
Go 
47 
48 
49 
50 
si 


* 
< 


$3 
54 
55 


Me 


eS 


«naw 


quan 


tau 


“saan 


wade 


| eth ad 


ENTER 


ENTER 
ENTER 
ENTER 
ENTER 


ENTER 
ENTER 
ENTER 


~~ oO WW NHN wt ££) oe 


oo 
- Oo 2 


me 


FCR LFT NULL SPACE INTRSEC. ANALY. «Hu 
TO SHIFT A CESIRED SLOW EIGENVALUE «au 
TO EXIT ELSPACE AND BRITE OPTEIG slo Ss 
FCR MIN. OF LFT-DAM FESICUALS ONLY wee 
USING EIGENVALLE AS VARIABLE. alas 
TD WRITE SEGEIG. «4 
TO ExT SESPACE . una 
TO EXIT ELSPACE AND WRITE XSLOW. 4 0 


SLCWwK SUBSPACE 
SLOW SUBSPACE 


RES TOUAL 
RESTOUAL 


O.S57516-01 


O.S1l7terdc tuas 


RGT-DAM RESIOUALS 


0.41598@€-02 
0.413468€-02 
0.3130°E-02 
0.409060E-02 
0.46672CE-02 
0.28468 1E-02 
0.27540€-02 
0.41916E-92 
0.3°87cCE-05 
0.11455&-03 
0.18226E-Co 
0.984615E-02 
O.5c771E-06 
Orso te 5e-05 
0.46055°€-03 
9.95300E-02 
0.26c01E-03 
0.51981E-05 


0.58651E-0e 
0.2870 -2-02 
0.28795E-02 
575460€-02 
37§96E-02 
-246185E-C62 
teoo se=0s 


aa 
«2550 42-02 


~579735E-035 
-89782=-06 
sleosle-Us 
21 65e=-0¢ 
-47875F-04 
~24142E-05 
-62198E-03 
-67827E-03 
-c5068E-03 
-Z17S68E-05 


qo aoq0e0ed0dceoea0oaoeaoeao0oe0doed aa G&G 


FOR RECONSTRUCTED SPACES 


4 


wat 


Pe) FS TT aes 
eoesoe sO. 
o8°6°9E +01 
90448E-02 
SIS27E-05 
16606E+92 
925S8S5E-01 
10489E+00 
LIis?@ce+0r 
sJ67ce-0'1 
LIS76E-01 
78327E°90 
27317E-01 
Cacao e +0: 
0.S1991E-01 
0.00000E+00 
0.00000E+90 
0.00000E+00 


Q. 
0. 
0. 
Q. 
0. 
0. 
0. 
Q. 
Q. 
0. 
0. 
Q. 
0. 


"1" FCR MIN. OF LFT-DAM RESTOUALS ONLY “«#%* 
USING ARS VECTOR ELEMENTS 4S VARTABLES*™**™ 


sem ee 
7 
oe 3% ee 
WEA, oe 
“Ss oe 


Seipice 
7 fhe 
ba 9 | 


FOR 


TO 
TO 
TO 


Meo 


wRITE 


EXIT ELSPACE 


AND 


NULL SPACE INTRSEC. ANALY. 
TO SHIFT A DESIRED SLCW EIGENVALUE 
7O EXIT ELSPACE AND 
FOR MIN. OF LFT-DAM 
USING EIGENVALUE AS 
SEGEIG. 

EXIT ELSPACE. 


WRITE OPTEIG 
RESTOVALS 
VARIABLE. 


CNLY 


WRITE XSLOW. 


waen 


bo atid 


MMM 


“MMe 


i oe 


wy 


wun 


ww ee 


ro 
ro 
Ca 


0.89255E*01 
0.48743E-01 
Q.746151E-01 
0.126015-01 
0.16616E-01 
0.81495E-02 
0.69318E-00 
0.193165E-01 
0.°35084E-01 
0.56°0°96E-01 
0.00000E+00 
0.00000=+00 
0.09090E+00 


LFT-DAM RESIDUALS 


0.20398E+02 
0.2123946E+02 
0.§02°7&+01 
0.63967E-0c 
0.63948E-02 
O. 15590802 
0.76546Se+01 
0.74162E-01 
Q.113846e+92 
0.14617E-O1 
0.814°SE-02 
0.692l°E-00 
Otel Tse-Ot 
0.25697E-01 
Osehe seo) 
Q0.00000&-00 
0.0000CE+00 
0.00000E+00 


WENTER “1 TO CALC RESIOS FOR RF ECONSTRUCTED SPACE 


“ELSE “O". 
0 
R; T=1§1.47/154.B1 13:08:48 
RECONF 


VS FORTRAN COMPILER ENTERED. 13:09:04 
*4MAIN#« ENO OF COMPILATION 1 *#%Hus 
“*CMATML #4 ENO OF COMPILATION 2 44 ¥HHK 
““RANKO»# END OF COMPILATION 3 ‘Hun 
wHWRMATOW* ENO OF COMPILATION G ¥Hvwnw 
“#SROOT** ENO OF COMPILATION 5S wanwaw 
VS FORTRAN COMPILER EXITED. Ss ates) ea) Ml 
LOADING RECONF ANO ORACLSA 


EXECUTION BEGINS... 


ENTER “1" TO WRITE UNOAMAGED E 
oh Are Ole s 


ENTER "2" TO REAQ UNOAMAGED EIGENSTRUCTURE ANO 
WRITE SLOW RT 


"ERSsP ACE” 


IGENSTRUCTUPE.S 


La 


ICES.(REAO “RECONF’ OATA Al, 
“UNOTEG".“UNDABC’.& "CLM". 


(hRITE “ERSPACE” 


ENTER “2” TO COMPUTE PRECONFIGURED GAINS. 
(WRITE “FRECTON’ DATA Al) 


ENTER “4 TO COMPUTE RECONFIG. 


EILGENSTRUCTURE 


SUBPATE DATA FOR USE 8Y 


OATA Al} 


ANO TIME RESPONSE (OPTMATD-OPTPLOT ) 
ENTER “S" TO COMPUTE Q ANO WRITE FILE 12 
“FPXACT” DATA. 


wuew ENTER “1" TO OLSPLAY OESIRED EIGENSTRCTURE 44 


“<4 ENTER “O" OTHERWISE. 


“wee CALLING LSVOF FOR B wwe 


www USVOF OF “BY COMPLETE “*»s 


#H¥HH RANK(B) = 10 an tt 


wwww CALLING LSVDOF FOR C “He 


e444 LSVOF OF “C' COMPLETE 4#m4 


wHYH RANK(C) = 1B wan 


R: T2B8.34/9.72 13:09:41 


RECONF 


VS FORTRAN COMPILER ENTERED. La al a) 


wHMAITNW4 ENO OF COMPILATION 1 ## HHH 


““CMATML“4* ENO OF COMPILATION 2 “*H4 HHH 


“¥RANKO¥* ENO OF COMPILATION 3 *44«44 


w«WRMATOM™ ENO OF COMPILATION G wHuwwe 


wane 


tJ 
tJ 
Spy: 


“"SROOT** ENO OF COMPILATION 5 “aawus 


VS FORTRBN COMP{LER EXITED. 


LOADING RESONF ANO CRACLSA 


EXECUTICN SE 


SNE 


ENTER 


GINS... 


See 


TO 


oem ce 
- 


TO 


soreiee To 


Gis To 


Seiiee iG) 


COMPUTS 


SYST. 


1Ss02253 


“RECONF"’ 
SEM. 


WRITE UNDAMAGEO EIGENSTRUCTURE.2 
MATRICES. (READ 
“UNDIES. “UNDAEC".& 


REAO UNDAMAGED EIGENSTRUCTURE AND 


DATA Al. 


eRITE SLCW RT SUBPACE DATA FOR USE 8Y 


"eR SP? Ate 


COMPUTE 2=CGNF [SUPED 
“FRECON” DATA Al) 
RECONF IG. 


(KRITE 


AND 


“EXACT 


TIME RESPONSE 
COMPUTE GQ ANO WRITE FILE 12 
DATA. 


(WRITE 
SAINS. 


c=2oreace 


BATA Al) 


ETSGENSTRUCTURE 


wees ENTER 1" 10 DISPLAY RECCNFIGURES 


auu 


EIGENSTRUCTURE. ELSE ENTER 


One f 


www DAMAGED FEEDBACK GAIN MATRIX “444 


jeep ie 


9.21435E°C0 
0.21435E*00 
0.0C0C0E*+00 
0.09000E+00 
0.00090&+90 
Q0.00S00E-0c 
9.00900F*90 
0.00000E*00 
0.90000E*00 
0.000C0E*+00 


COL 


“O.19141E-C1l -0.2107°9EF*00 -0.38°82E-01 


-0.13143E+00 
-0.131423E*00 
9.000902*00 
0.00090E*00 
0.00C0CE+00 
0.00000E+00 
0.9C000E-00 
0.00090E*90 
0.00000E*90 
0.99C00E*900 


19 = 18 


0.Q00000E-00 
0.00000E-00 
0.20948E-01 
0.20°48E-01 
0.110°8E-91 
G.110CSE-01 
0.00CC0E*00 
0.00000E-00 
0.900000E-90 
0.00000E-00 


Oe aTore=Ol =0.51079S*00 =O. -28l=8t&-01 


0.0C0C0E-90 
9.0000CE+00 
0.90000E+00 
9.00000E*00 
0.00000E*00 
0.00000E*+90 
0.90090E*00 


¢.09000E*00 
0.000C0E-00 
0.90000E+00 
0.00000E*00 
0.00000E+00 
0.00000E*00 
0.90000€*00 


0.00000F*0c 0.00090E+00 
wees FTILDA wna 
5 col 1-9 


9.014146E*00 -0.13102E+00 


0.°21414E-00 
Oecseo-=—Ue 
0.35590E-02 
0.5°863E-02 
Ono oge Ue 
0.0649°E-07 
0.204652E-07 
0.14958E-05 


-0.135102E+00 
0.74240E-02 
0.74241E-02 

-0.935°88E-02 

-0.93978E-02 

=O. 162146 —-05 
0.18195=-06 


=U. 007 st2—O05 


0.c0000E-00 
0.0000CE-00 
0.00000E+00 
0.00000E+00 
0.00000E-00 
0.00000E-00 
0.0000S&-00 
0.CQ000E-00 


0.44171E-05 
~=8oe/e=01 
Gace e-oE- 0) 
0.47800E-02 
0247 956E-02 
SO. occ ltl—U5 
0.15203E-05 
-0.423°9875-04 


0.44209E-05 


0.00000E+00 


COPTMATD.OPTPLOT ) 


wn 


aun 


0.24000E-01 


0.Q00000E*00 -0.24000E-01 


0.00000E+00 
0.09000°5*00 
0.00C00E+90 
0.00000E+00 
0.000005-00 
9.0000CE-00 
0.68°S7E*00 
0.68°937E+00 


0.000090E+00 
0.461275e-01 
0.412°55E-01 
Q0.000090E-00 
0.00000E*00 
0.00000E+00 
0.00000E+00 
0.00000E+00 
0.00000E+00 


-0.32910E-06 
-0.90519E-06 
= 705) /e-05 
-0.10017E-04 
-0.1423°9CE-05 
-0.16780E-05 

0.167646E-05 

0.68°942E+00 


0.cQQ000E+00 


0.86601E-00 


0.00000E-00 
0.00000E-00 
0.19200E-01 
-0.19°00E-01 
0.690C0E-01 
-0.60000E-01 
0.38807E-00 
0.38807E+00 


0.00000E*00 
0.00009&+900 
0.00000E*00 
0.°201882E-01 
0.2188SE~-01 
0.00000E+00 
0.00000E+00 


0.00000E+00 


0.00000E+00 
0.00000E+00 
0.00000E+00 
0.00000E*00 
0.Q00000E*00 
0.00000E+00 
0.00000E+00 
0.00000E-+00 
0.16S00E*0C 
Q0.15500E*02 


0.00000E+00 
0.00000E+900 
0.00000E+00 
9.00000E+00 
0.00000E*00 
0.Q00000E+00 
0.00000E+00 


0.Q0000E+00 -0.85550E-02 


0.00000E+00 


-0.26001E-01 
@9.29955E-06 
-0.29954E-06 
OF) tee rigte Jia 8) | 
-0.19204E-01 
0.80005E-01 
-0.00005c-01 
0.38810E+00 


27, 


Coed 


0.24001E-01 


-0.85030E-02 


0.42°988E-05 
Glia sUalstcyeta 6) 
=0.1985°%E=-04 
=-0.2°555<-03 
-29625E-04 
-0.52761E-06 
0.S255°E-046 


0.1650CE*02 


0.00000E- 


-0.25739E-02 
-0.c5739E-00 
0.90000E+00 
0.00000E*00 
0.00000E+00 
0.00000E+00 
0.00000E*00 
0.00000E*00 
0.00000E+00 
0.00000E+00 


00 0.Q00000E+00 0.00000E+00 
Q.00000E+00 0.00000E+00 
Q0.00000E*00 9.00000E+00 
0.90000E*00 9.00000E+00 
0.00000E*00 0.00000E*00 
0.00000E*00 9.00000E+00 
0.00000E*00 0.00000F+00 
0.00000E+*00 0.00000E*900 


-“Qh.o05 25e—O. 
-0.4939SE-02 


0.38586E-05 -0.26040E-02 


-0.26C40E-02 
=0.50057E-05 
-0.S0030E-03 
O-o17oce-0S 
0.51748E-03 
-0.3074°E-08 
0.3076°%E-08 
0.89° 18E~-07 


0.74813E-03 
0.743135E-03 
0.00000E+00 
0.00000E*+00 
0.Q00000E-00 
0.00000E+00 
0.Q0C000E+00 
0.00000E+00 
0.00000E+00 
0.09000E+00 


0.780495E-04 
0.78040E-04 


0.74733E-03 
-O.13901E-04 
-0.1390°<E-04 
0.cc81CE-06 
O.ccShee=04 
0.28945c-10 
-0.28758E-10 
0.721°24E-08 


=O, 1StGle=O0t 
-O.19141E-01 
0.00000E-00 
0.00000E-00 
0.000C09E*00 
0.00000E<00 
0.900C0E*C0 
0.000C0E+00 
0.00000E-00 
0.00000E*00 


0.00000E*+00 
0.00000c+00 
0.00000E+00 
09.00000E+00 
0.00000E+00 
0.00000E*99 
0.00000E-00 
0.31750E-02 
0.31750E-02 


0.747353E-03 -0.19364E-01 


-0.13364e-01 
-0.372094E-02 
-0.37205E-02 
0.38487E-02 
0.238484E-02 
-0.55545e-07 
0.25580E-07 
0.564°80E-D96 


0.00000E-900 


Q0.146751E-05 -0.65650E-05 -0.42932E-04 0.689453E+00 
cou 10 = 18 

~0.193a6E-01 -0.21CTSE°00 -0.38728E-01 0.06656E-94 
0.19364E~-01 -0.210°0SE*00 -0.28728E-01 9.24659E~C4 0 
O.27206E$JS O.928S7E-0c <0. 7/6460%Ee dS “9-Gie-eosut 0 
O.27005e-92 0.93829E-02 -0.76409E-02 0.41599E-01 0 
0.58687E-02 -O0.1259GE-01 0.7690SE-02 -0.S70S7E-04 0 
O0.28484E-02 -O0.10093E-01 0.76959E-02 -0.570467E=CS 0 
0.3559845E-97 -0.971595-07 -0.477¢0E-07 -0.190S7E-08 -0. 


0.35500e-07 
2.46 280E-06 
0.6259SE-06 


0.97002E-07 
“0. Sos6ce-95 
=0)..562925-C5 


0.467287E-97 9 
0.192 ise-05 
0.188461E-%95 


44un ENTER “1" FOR TIME RESPONSE CALC. 
“wwe ENTER "O" OTHERWISE, 


0 


ee tsa 2 6eks (4a loges 


-19020CE-08 


aus 


4 


QO. 


0 


-17°18E-04 
-43515E-03 
-63516E-03 
-c1408E-01 -0.5a°51E-07 
i SO0TE-O1 <Gl le 10see U6 


38810E*00 9.16e500E*0C 


Ooi =S1e-06 

0.13479E-07 
-0.30606e-907 
-0.204CS5SE-07 


171S8E-05 0.15267=-07 


-i 7228-08 =-G.i5228E-07 
“0.15886E-06 -0.597462E-05 -0.854a60E-02 
-0.15836E-06 -0.59690E-05 -0.85637E-02 


228 


0.104660E-07 


0.86011E-07 


0.65791E~C8 
-0.19<¢046&-97 
=Q2 feu se— oe 
-0.¢C84°1E-07 
-0.10592&-08 
Gjtece°e-07 
-0.12605¢-07 
=0.62c-oe-Uc 
-0.49398E-02 


0.560468E-08 


0.712S50E-08 


0.6<5072= 36 
9. 4<5 10E-Cs 
“0.298 °8E-C8s 
-0.26067E-098 


0.79930E-10 
0.78061E-04 
0.7806SE-04 


0. 


=0 cS 718E-06 
=O. éc5572-08 °-C. 
Q. 
Q. 


0 
Q 


0 
0 


625 FSE-0a 


-0.8646°9E-08 
9°39GE-08 
i59e@fo-47 


ISSes5=-07 


 2641E-07 
-486175-07 
~Q0.73°990E-10 -d. 


693°9SE-08 


-4°S°8E-03 
-31755E-02 
0. 


o175es-0e 


Py) 


f.. 


Cn 


ha 
e 
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